Hello and Welcome from United States to the UNIX and Linux Forums! Thank You for Visiting and Joining Our Global Community.
|
Hello and Welcome from United States to the UNIX and Linux Forums! Thank You for Visiting and Joining Our Global Community.
|
|
google unix.com
|
|||||||
| Forums | Register | Forum Rules | Links | Albums | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
 |
| Shell Programming and Scripting Post questions about KSH, CSH, SH, BASH, PERL, PHP, SED, AWK and OTHER shell scripts and shell scripting languages here. |
More UNIX and Linux Forum Topics You Might Find Helpful
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Perl Issue | raj001 | Shell Programming and Scripting | 23 | 01-30-2009 06:12 AM |
| Need Help with Perl Scripting Issue. | manik112 | Shell Programming and Scripting | 23 | 12-13-2008 12:52 PM |
| Perl Script Issue - Please Help * Thanks!!! | jroberson | Shell Programming and Scripting | 8 | 11-03-2008 03:47 AM |
| perl issue .. | zedex | Shell Programming and Scripting | 3 | 09-13-2008 11:22 PM |
| issue with if loop in perl | amitrajvarma | Shell Programming and Scripting | 4 | 01-09-2008 12:02 AM |
 |
Powered by 
|
|
|
LinkBack | Thread Tools | Search this Thread | Rate Thread | Display Modes |
|
|
05-20-2009
|
||||
|
||||
|
another way
Code:
my @NC = ();
my $data_file = 'file';
open (my $IN, $data_file) or die "can't open $data_file $!";
while(<$IN>){
if(/<tr bgcolor="#ddffff">/){ $f=1;}
if ($f && /\b(NC_\d+)\b/){
push @NC, $1;
$f=0;
}
}
print "$_\n" for @NC;
|
| Bits Awarded / Charged to ghostdog74 for this Post | |||
| Date | User | Comment | Amount |
| 05-21-2009 | KevinADC | Agree, another way to do the same thing | 50 |
|
| Bookmarks |
| Tags |
| file, html, perl, script |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
Hybrid Mode
