Search Results

oops I forgot to generalise the frame length when setting the values.

#!/usr/bin/perl
use strict;


# In a production system these should be validated before progessing, but for now...
print...

Ahh, that's a bit more complex than the usual learning Perl question, at the risk of undoing the learning value of the exercise try the following


#!/usr/bin/perl
use strict;


# In a...

Why can't you use:
rm /dir/test.txt

The $file variable is out of scope when you check it. It doesn't exists when the foreach loop ends. Try using an additional array variable.


$ #!/usr/bin/perl -w
print "Enter Advance Search...

$
$
$ # list the name and sizes of all text files in the current directory
$
$ wc *.txt
0 0 0 a.txt
1 1 3 b.txt
1 1 5 c.txt
1 11 51 d.txt
3 13 59 total
$
$
$ # display the...

$ cat test.pl
#!/usr/bin/perl
$files = "list jpg";
@patterns = split(/ /,$files);
@files = <*$patterns[1]>;
foreach $file (@files) {
print $file . "\n";
}