Electron One wrote, on Monday, March 10, 2003 13:12
: while(<>){
: chomp;
: if(/\s*\$[a-z]\w+\s*/i){
: #if(/\b\$[a-z]\w+\b/i){
: print "Matched: $` -- $& -- $' :\n";
: }
: else{
:print "No match:$_\n";
: }
: }
:
: testfile.txt###
; > -Original Message-
> > From: Electron One [mailto:[EMAIL PROTECTED]
> > Sent: Monday, March 10, 2003 12:12 PM
> > To: [EMAIL PROTECTED]
> > Cc: Electron One
> > Subject: Another Regular expression problem
>
Message-
> > From: Electron One [mailto:[EMAIL PROTECTED]
> > Sent: Monday, March 10, 2003 12:12 PM
> > To: [EMAIL PROTECTED]
> > Cc: Electron One
> > Subject: Another Regular expression problem
> >
>
> -Original Message-
> From: Electron One [mailto:[EMAIL PROTECTED]
> Sent: Monday, March 10, 2003 12:12 PM
> To: [EMAIL PROTECTED]
> Cc: Electron One
> Subject: Another Regular expression problem
>
>
> Hello Everyone,
>
>
Hello Everyone,
I have a perl file that has this,
PerlFile.pl###
#!/usr/bin/perl
while(<>){
chomp;
if(/\s*\$[a-z]\w+\s*/i){
#if(/\b\$[a-z]\w+\b/i){
print "Matched: $` -- $& -- $' :\n";
}
el
