Shell Programming and Scripting

Hi,

I'm writing one perl script to select only a number part from a line. These lines looks as:

raj born on 20080201 at delhi
result for the equation [(A+B) * (B*C)] is (886005)
peter get married on 20031230
Maria born on 20080201 at paris

my output file should only contains the numbers, by removing the duplicate.
i.e, for the above line, my output file should contains only below lines.

20080201
886005
20031230

I've writen the code as below, seem to be some problem in 'grep' part.

#!/usr/bin/perl

use File::Find;
use strict;

my $in_file = "/software/app//input_file.txt";
my $out_file = "/software/app//output_file.txt";

my @outLines;
my $line;
my $cur_num;

open (FILE, $in_file ) or die "Cannot open file: $!";
open( OUTFILE, "> " . $out_filename ) or die "Cannot open file: $!";

while ( $line = <FILE> ) {
$cur_num =~ grep( /[0-9]/ , $line);
push(@outLines, $cur_num);
}

print ( OUTFILE @outLines );

close FILE;
close ( OUTFILE );
undef ( @outLines );

Any help would be much appreciated.

Much Regards / Lokesha

Thanks,

I've got answer from my friend, it is as below:

#!/usr/bin/perl

use File::Find;
use strict;

my $directory = "/software/app/AlgoSuite/glk/FILES";
#my $directory = "/w94236_app/u01/test/Data/RiskWatch/Handler/OUTPUT/Current";
my $out_filename = "/software/app/AlgoSuite/glk/output_file.txt";

find (\&process, $directory);

sub process
{
my @outLines; #Data we are going to output
my $line; #Data we are reading line by line
my $cur_num;

# Only parse files that end in .html
if ( $File::Find::name =~ /\ErrorTrades.info$/ ) {
open( FILE, $File::Find::name ) or die "Cannot open file: $!";
open( OUTFILE, "> " . $out_filename ) or die "Cannot open file: $!";

while ( $line = <FILE> ) {
if ($line =~ m/^Check the LEGAL/){
$line =~ s/\D*//;
$line =~ s/\D*$//;
push(@outLines, $line . "\n");
}
}

print( OUTFILE sort @outLines );

close( FILE );
close( OUTFILE );
undef( @outLines );
}
}

Thanks for the forum again...