On 16/12/03 23:33 +0530, Dr. Sharukh K. R. Pavri. wrote:
<snip>
<reformatted code>
perl -e 'while(<>) {
@names = split /\s+/;
foreach (@names) {
print "$_ " if ! (/\@/);
}
print "\n";
} ' < file.
<snip>
> I did use it as a single line. Sorry, still does not work :(
Sorry, I missed the opening brace after the if.
[EMAIL PROTECTED] tmp]$ perl -e 'while(<>) { @names = split /\s+/; foreach
(@names) { print "$_ " if ! (/\@/)}; print "\n" } ' < users
Devdas Bhagat
Philip S Tellis
Parul Mathur
Dr. Shahrukh K. R. Pavri
[EMAIL PROTECTED] tmp]$ cat users
Devdas Bhagat [EMAIL PROTECTED]
Philip S Tellis [EMAIL PROTECTED]
Parul Mathur [EMAIL PROTECTED]
Dr. Shahrukh K. R. Pavri [EMAIL PROTECTED]
Devdas Bhagat
--
http://mm.ilug-bom.org.in/mailman/listinfo/linuxers
