mannn
asked on
Perl Script
Hi guys iam trying to write an perl script which does the below
Please help me ,,,,,,,
if file contains 20 records
abcd
blablablablablablablablabl abla...
efgh
blalabalablabla.....
abcd
blablablablablablablablabl abla...
efgh
blalabalablabla.....
abcd
blablablablablablablablabl abla...
efgh
blalabalablabla.....
abcd
blablablablablablablablabl abla...
efgh
blalabalablabla.....
abcd
blablablablablablablablabl abla...
efgh
blalabalablabla.....
...
I need the script which takes the line or record after the abcd and writes in new file
new file should contain
blablablablablablablablabl abla...
blablablablablablablablabl abla...
blablablablablablablablabl abla...
blablablablablablablablabl abla...
blablablablablablablablabl abla...
Please help me ,,,,,,,
if file contains 20 records
abcd
blablablablablablablablabl
efgh
blalabalablabla.....
abcd
blablablablablablablablabl
efgh
blalabalablabla.....
abcd
blablablablablablablablabl
efgh
blalabalablabla.....
abcd
blablablablablablablablabl
efgh
blalabalablabla.....
abcd
blablablablablablablablabl
efgh
blalabalablabla.....
...
I need the script which takes the line or record after the abcd and writes in new file
new file should contain
blablablablablablablablabl
blablablablablablablablabl
blablablablablablablablabl
blablablablablablablablabl
blablablablablablablablabl
i need perl script which does this
#!/usr/local/bin/perl
open (MYFILE, 'XYZ.txt');
open (OFILE, '>ABCT.txt');
while (<MYFILE>) {
if (string found )
print OFILE "$_"+1;/* I need the next record if the string mach */
}
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
perl -ne "print if (/^abcd\b/.../^/)==2"
perl -ne 'print if $c && $c--;$c=1 if /abcd/' file
perl -ne 'print if $c;$c=/abcd/' file
ASKER
Thank you all of you, mrjoltcola,adam314,ozo and ghost dog74