UNIX for Dummies Questions & Answers

Hi I need to open a file if a condition(for example a if a regular expression) is met. How do i do this ?

open (file) if (some regex).....

Code:

if ($variable =~ /abc/)
{
#open file here
}
else
{ 
print "not matching"
}

Thanks, I already had this in mind but i need help in the following input :
abcd diff
random data(any number of lines)
efgh diff
random data(any number of lines)
What I exactly need to do is when regex finds diff and I need to start printing from the next line till it reaches the next diff.So basically I am trying to open a file from the position where regex is matched and then sumhow get to print whatever is in the next lines. Could you please help me do this.

Hi,

Try this one,


my $rc=0;
my $filename="";
if ( open(FILE,"<3.pl") )
{
while(<FILE>)
{
chomp($_);
if ( $_ =~/diff$/ )
{
$filename=(split(" ",$_))[0];
open(NFILE,">$filename");
}
print NFILE "$_\n";
}
}
else
{
print "Unable to open file\n";
}


Cheers,
Ranga