Value not stored in file <Perl> -


i new perl. motive read value txt file , use in perl script.

the text file ::

servers ::                  (local)        tomas-server1        tomas-server2       .........**

what need 3rd line value (tomas-server2) , use in perl script. calling 3rd value perl script.

i have written basic code ::

my($servname1,$servname,$servname3) = getservername($servername); ($filenam) = 'data.txt'; @param = ();  open(infile,"<$filenam") or die "couldn't open $filenam reading\n"; while(<infile>) {     chop($_);      push(@param,$_); } close(infile); return @param; }

but when try use "$servname2" value , not return anything. guess value contained should "(local)" it.

there few problems example data, think understand trying do. assuming want third server value (and not line #3) want have code looks this...

#!perl  #some includes use strict; use warnings; use data::dumper;  #set vars $targetfilename="data_file.txt"; $targetservernumber=3;  #call sub @serverarray=getservername($targetfilename);  #did back? if(@serverarray) {     #yep, got content     print "server number ".$targetservernumber."/".($#serverarray+1)." \"".$serverarray[$targetservernumber-1]."\"\n"; #array numbers 0-based } else {     #nope, read file didn't matching content     print "no servers found in file \"".$targetfilename."\".\n"; } #end if  print "\n"; print "here's loaded \@serverarray...\n"; print data::dumper::dumper(@serverarray); #so can see full content of @serverarray print "all done\n"; exit;  #----- subs go here -----  sub getservername {     $datafilename=shift; #pull in first arg - alters @_ rest of sub, take care when doing     @returnarray;     #do qa     if(!$datafilename) {die "you need provide file name use sub.\n"} #do have file name?     if(!stat($datafilename)) {die "the requested file name of \"".$datafilename."\" not exist.\n";} #does file exist?     open(infile, "<".$datafilename) or die "unable open \"".$datafilename."\" - ".$!;      #ok, read file content     while(my $line=<infile>) {         chop($line);         $line=~s/^\s+//g; #remove leading white spaces         $line=~s/\s+$//g; #remove trailing white spaces         if(!$line) {next;} #blank line, skip          #check headers         if($line=~m/^servers/) {next;} #skip lines beginning "servers"         if($line=~m/^\(local\)/) {next;} #skip lines beginning "(local)"          #if here, must want line content, add array         push(@returnarray, $line);     } #end while     close(infile);      #send array data back, if     return @returnarray } #end getservername sub  __end__  stuff below here not need commented

i admit not best way approach problem, perl hacks, works. you'll notice code bit overkill , validation checks before passing data operations - habit of doing in language work in. return more meaningful errors when things go wrong , catch data related problems. sample code bit of data cleanup because leading , trailing cause problems later on. blank lines (after cleaning) removed.

btw, data file used example this...

servers ::                  (local)        tomas-server1        tomas-server2          tomas-server3       tomas-server4        tomas-server5        tomas-serverlast

Comments

Post a Comment

Popular posts from this blog

c++ - CryptStringToBinary API behavior -

i seeing strange behavior cryptstringtobinary cryptography api. please see below code (config: x64 debug): #include "stdafx.h" #include <windows.h> #include <strsafe.h> #include <iostream> #include <exception> void main() { dword dwskip; dword dwflags; dword dwdatalen; //lpcwstr pszinput = l"jaaaaaecaaadzgaaakqaagdnnl1l56bwgfjdgr3rpxtqqqn6daw3usv2emkjym4t"; //this works fine lpcwstr pszinput = l"mytest"; //doesnt work, api returns false,error code 0x0000000d // determine size of byte array , allocate memory. if(! cryptstringtobinary( pszinput, _tcslen( pszinput ) + 1, crypt_string_base64, null, &dwdatalen, &dwskip, &dwflags ) ) { dword dw = getlasterror(); //0x0000000d: data invalid throw std::exception( "error computing byte length." ); } byte *pbytebyte = null; try { ...
Read more

c++ - Correct method for redrawing a layered window -

i have window created ws_ex_layered window style. drawing onto memory bitmap using gdi+, , using updatelayeredwindow update graphical content of layered window. intend use window main window of application, require redraw frequently. seeing layered windows not receive wm_paint windows message [?] , need come appropriate method re-drawing window. optimisation not essential , it's nice have cake , eat too. therefore, in search of "correct" method use. here thoughts far: i guess it's idea render onto off-screen bitmap before bitblt ing or similar. 60 frames rendered per second should (more than?) enough (but how compare other applications' frame rates?). possible solutions: use settimer send wm_timer message on regular basis. useful because through specifying time-out value, can achieve desired frames per second, without requirement measure duration "frame" takes rendered. would cause input or other lags due frequency , speed of m...
Read more

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more