On Wed, May 09, 2001 at 12:27:26PM -0500, John Joseph Trammell wrote:
: On Wed, May 09, 2001 at 01:50:24PM -0400, [EMAIL PROTECTED] wrote:
: > #!user/local/bin/perl -w
: >
: > open TRY , "try.txt";
: >
: > while (<TRY>) {
: > (my $b=$_) =~ s/^(\() (\w+)/$2/;
: > print $b;
: > }
: >
: > Thank you for humiliating me with this simple question.
For the record, I'd like everyone to know that humiliation does not
rub well with this list. Please don't feel this way when posting.
"One who asks a question is a fool for 5 mintues, one who never asks
is a fool for life."
or something like that.
: Any time.
:
: #!/usr/bin/perl -w
: use strict;
: open(TRY,"try.txt") or die qq[unable to open "try.txt": $!];
: while (<TRY>)
: {
: my ($b) = /\(\w+ = (\w+)\)/;
: print $b, "\n";
: }
: __END__
: (name = john)
:
: --
: Just Another Perl Hacker.
Casey West
--
"If I had thought about it, I wouldn't have done the experiment. The
literature was full of examples that said you can't do this."
-- Spencer Silver on the work that led to the unique adhesives for
3-M "Post-It" Notepads.
