Re: How do I get different files into an array

'N'other way of acquiring the contents of the files ... but may not be what you want?

#! /usr/bin/perl -w
use 5.018;

 #1123337

my @arr; 
my @files=("Die2.txt", "Die1.txt", "Die1.bak", 
            );              # assumes that you have code to ID the fil
+es 
                            # you want and collect them into an array

for (@files) {
    open (my $InFile, '<', $_) or die "cannot open $_, $!";
    while (<$InFile>) {
        my $var = $_; 
        push @arr, $var;
    }
} 
say @arr;
[download]

UPDATED: with the notes below.

And a note: If the way you phrased "... how I can get my already working script's array to read the contents of different files" is merely because English is not your native language it's not a big deal because I see I'm not the only Monk to decipher it (well, I hope we've done so accurately).

But if that phrasing accurately reflects your understanding of arrays, note that neither that array or any other can "read the contents" of anything. You have to explicitly tell Perl that you want data PUSHed onto an array... and that means you have to collect the data first -- by the method shown here, or by that in the prior ( ++ ) reply.

You could, of course, read about the record-input separator ($/, the $INPUT_RECORD_SEPARATOR ( aka "the field record separator" at Perl.com )and use that instead of the while loop above; which would spare you the need for Ln 19. Setting $/ = undef; will cause your read to slurp the entire file.

Spirit of the Monastery

Comment on Re: How do I get different files into an array Select or Download Code

Replies are listed 'Best First'.
Re^2: how do I get the contents of different files pushed to an array? by amagana (Acolyte) on Apr 14, 2015 at 14:09 UTC
Hello ww, You are correct my question was meant to ask how do I get the contents of a file ( and actually different files that list server names) pushed to an array.	[reply]
Re^3: how do I get the contents of different files pushed to an array? by james28909 (Deacon) on Apr 14, 2015 at 20:30 UTC
ww's solution is actually better than mine, the best way for you to do multiple files is to figure out a solution as to how you can create a list of files you need, wether it be all files in a dir or a pre-specified list. It sounds to me that your best bet is going to be to step back for a minute and think about how you can get a file list first. then parse each file with a for loop. Good Luck :)	[reply]
Re^3: how do I get the contents of different files pushed to an array? by ww (Archbishop) on Apr 14, 2015 at 21:01 UTC
Follow this recipe (précis, quasi-pseudo-code): `use strict; use warnings; open the first of the files w/server names; read contents to a $var; push $var to a new array (namely @all_server_names) rinse, repeat untill all files have been read and their content pushed Convert the above to code; execute` [download]	[reply] [d/l]
Re^2: How do I get different files into an array by amagana (Acolyte) on Apr 15, 2015 at 14:56 UTC
My script stops and says su: incorrect password, these are Linux boxes at when it sends the passwords during the expect/send of su - root. Is it because I will have to escape the special characters when it starts to send the strings with special characters, I did not have to do this with Solaris boxes? Is there a way to just alway ignore special characters only during the send part of expect? 1 #!/usr/bin/perl -w 2 3 use warnings; 4 use strict; 5 use Expect; 6 7 8 my $filename = "/var/tmp/expect_script.log"; 9 my $header = "\r\n\r\n======= system =======\r\n"; 10 my $timeout = 60; 11 12 13 #This will open a file and push it to array 14 my @servers; 15 16 #open (my $file, '<', $ARGV[0]) or die $!; 17 18 open (my $file, '<', "/home/amagana/scripts/lists/list_b2") or + die $!; 19 20 while(<$file>) { 21 push (@servers, $_); #push each line of the file to array 22 } 23 24 print "$_\n" for(@servers); 25 26 27 #This is an array 28 #my @servers = qw( 29 # 30 # 31 # 32 # 33 #); 34 35 36 for my $server (@servers) { 37 # do your thing with $server 38 39 change_password($server); 40 41 } 42 43 44 sub change_password { 45 46 my $system = shift; 47 my $ssh = Expect->new('ssh amagana@' . $system); 48 49 50 $ssh->debug(22); 51 $ssh->log_file("$filename"); 52 my $my_header = $header; 53 $my_header =~ s/system/$system/; 54 $ssh->print_log_file($my_header); 55 56 $ssh->expect ( $timeout, 57 [ qr/password:/], 58 [ qr/Are you sure you want to continue connecting $yes\ +/no$?/] 59 60 ); 61 62 if ($ssh->match() =~ m/Are you sure you want to continue conne +cting $yes\/no$?/ ) { 63 $ssh->send("yes\r"); 64 } 65 66 elsif ($ssh->match() =~ m/password:/ ) { 67 68 $ssh->send("mycurrentpassword\n"); #no problem with the specia +l characters at this line 69 70 } 71 72 $ssh->expect(60, '$'); 73 $ssh->send("su - root\n"); 74 $ssh->expect(60, 'Password:'); 75 $ssh->send( "rootpasswordwithspecialcharacters\n" ); #but my s +cript quits here 76 $ssh->expect(60, '#'); 77 $ssh->send("hostname\n"); 78 $ssh->expect(60, '#'); 79 $ssh->send("uptime\n"); 80 $ssh->expect(60, '#'); 81 $ssh->send("passwd amagana\n"); 82 $ssh->expect(60, 'New UNIX Password:'); #linux 83 $ssh->send( "mynewpasswordwithspecialcharacters\n" ); 84 $ssh->expect(60, 'Retype new UNIX password:'); #linux 85 $ssh->send( "mynewpasswordwithspecialcharacters\n" ); 86 $ssh->expect(60, '#'); 87 $ssh->send("exit\n"); 88 $ssh->expect(60, '$'); 89 $ssh->send("exit\n"); 90 $ssh->close(); 91 } [download]	[reply] [d/l]