how to get results into array from unix commands

Question

I'm trying to get the dump of each file into an array from a unix command in a Perl script. below is the error I'm getting. Could anyone please help me fix this issue?

Can't locate object method "cat" via package "C:/prac/cmm_ping.txt" (perhaps you forgot to load "C:/test/cmm_ping.txt"?) at fandd.pl line 25.

below is my program

#!/usr/bin/perl

use warnings;

@files=glob("C:/prac/*");

foreach $file (@files){
   @data=system(cat  $file);
      foreach $line (@data){`
        print $line;
    }
}

ikegami · Accepted Answer · 2012-10-05 20:53:08Z

1

system(cat $file)

contains an indirect method call. The above is equivalent to:

system($file->cat)

You meant

system("cat $file")

but that's wrong since you don't convert $file into a shell literal. It's best to avoid creating a shell command entirely by bypassing a shell you don't need anyway.

system('cat', $file)

answered Oct 5, 2012 at 20:53

ikegami

391k17 gold badges291 silver badges555 bronze badges

Sign up to request clarification or add additional context in comments.

7 Comments

user1627901 Over a year ago

when i used system('cat',$file) i'am getting the below 'cat' is not recognized as an internal or external command, operable program or batch file.

ikegami Over a year ago

Do you have cat? If so, fix your path. If not, what do you expect?

user1627901 Over a year ago

Not sure if i'am following you..i see the values in the Loop for variable $file are coming with absolute path passing it to cat command.

ikegami Over a year ago

Did you install cat on your machine? No version of Windows comes with it. Like you said, it's a unix tool.

user1627901 Over a year ago

ahh, that explains.. i was on windows machine trying to run the above code, So, what if i want use something DOS equivalent to stuff up the array in my code, what should i do?

|

amon · Accepted Answer · 2012-10-10 15:16:48Z

1

I took a different route for the issue I was having about running the Unix commands in Perl, and I was able to figure that out with the below code.

@files = <C:/prac/*.ext>;

for $file (@files){
  open (FILE, "$file")             or die $!;
  open (OUT,">> C:/prac/data.txt") or die $!;

  while($line= <FILE> ) {
    print OUT $line if $line =~ /something/ ;
  }

  close FILE;
  close OUT;
}

edited Oct 10, 2012 at 15:16

amon

57.8k2 gold badges93 silver badges152 bronze badges

answered Oct 10, 2012 at 14:41

user1627901

1591 gold badge1 silver badge4 bronze badges

Collectives™ on Stack Overflow

how to get results into array from unix commands

2 Answers 2

7 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

7 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related