17 Dec
2003
17 Dec
'03
8:29 a.m.
On 17/12/03 08:01 +0000, swanand pathak wrote:
Hi!
This should solve the problem. Save following lines as some_name.pl
If we are scripting.
Also mention file name in the file as mentioned.
#!/usr/bin/perl
No -w?
open(vp,"myfile");
Wheres the die?
#!/usr/bin/perl -w use strict;
my $file = "/path/to/users/file"; open(ADDRBK, "<", $file) or die "Failed to open $file: $!";
while (<ADDRBK>) { my @names = split(/\s+/, $_); foreach my $name (@names) { print "$name " if $name !~ /@/; } print "\n"; }
<eot, going from a one liner to a whole script> Devdas Bhagat