Find a text line that starts with forward slash

[Perl Beginner]

Hi,
Is there a way to find a line in a text file that starts with a forward slash? This is how i find a line in text file that starts with a word and then print that line to another text file:

open( FILE, "<$file" );
open( COPIED_FILE, ">$copiedfile" );
 
while( <FILE> )
{
   $templine = $_;
   if ($templine =~ m/DELTA\//)
      {print COPIED_FILE "$templine";}
}
 
close FILE;
close COPIED_FILE;

But what if the line I'm trying to find starts with a forward slash...for example /DELTA? The thing is, i won't know everytime what word or number will be after the forward slash...

Thanks,
Terra

[numberwhun]

Hi,
Is there a way to find a line in a text file that starts with a forward slash? This is how i find a line in text file that starts with a word and then print that line to another text file:

open( FILE, "<$file" );
open( COPIED_FILE, ">$copiedfile" );
 
while( <FILE> )
{
   $templine = $_;
   if ($templine =~ m/DELTA\//)
      {print COPIED_FILE "$templine";}
}
 
close FILE;
close COPIED_FILE;

But what if the line I'm trying to find starts with a forward slash...for example /DELTA? The thing is, i won't know everytime what word or number will be after the forward slash...

Thanks,
Terra

Sure, you could use:

m/^\//
 

as your pattern match and put whatever you want to match after the \/ (that's backslash, forward slash. The backslash escapes the special meaning of the forward slash, as it does with other special characters inside of a regex.

Regards,

Jeff

[Perl Beginner]

Sure, you could use:

m/^\//
 

as your pattern match and put whatever you want to match after the \/ (that's backslash, forward slash. The backslash escapes the special meaning of the forward slash, as it does with other special characters inside of a regex.

Regards,

Jeff

Thank you so much!! That did it!


Terra