Reader: 1
|< 1 2 >| | 13 entries, 2 pages |
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl -w
use strict;
use warnings;
my @Array_test = system('fgrep "(22.5.1983)" /test/old/* -l');
foreach my $x (@Array_test)
{
print "Debug: ".$x."\n";
}
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl -w
use strict;
use warnings;
my $test = qx'fgrep "(22.5.1983)" /test/old/* -l';
print "Debug: ".$test."\n";
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use strict;
use warnings;
my @test = qx'fgrep "(22.5.1983)" /test/old/* -l';
foreach my $x (@test)
{
chomp($x);
print "Debug: ".$x."\n";
}
|< 1 2 >| | 13 entries, 2 pages |