Extracting data from a file

Hello Every one ,

Pls help me to extracting number from a text file since I am new to perl programming .

I have a file and need to extract the number after semicolon in that

-----------------Contents of the file -----------------------

And the output should be like the following .



I have written the following code but it's not working on the above file.

-----------------------------Code -----------------------------------

re: Extracting data from a file

Hello Amma,

You are almost there. You simply needed to check to see if the $digit value existed to take into account blank lines, and then simply remove spaces from around the $digit value.

- Miller

re: Extracting data from a file

perl -pe 'chomp;print "\n" if $i++ && m/Total Number Of Inputs/;$_=(split/:/)[1];END {print "\n"}' report.txt

re: Extracting data from a file

Hi...
use strict;
open (INPUT, "report.txt") or die "Cannot open report.txt: $!";
while (my $line = <INPUT>) {
$line=~s/([^:]+):([^\n]+)(\n)?/$2/sg;
print $line;
}
close(INPUT);

re: Extracting data from a file

$line=~s/([^:]+):([^\n]+)(\n)?/$2/sg;

re: Extracting data from a file

Gentlemen,

You're very amusing. However, the best way to help someone is to use their own code to show them how to finish a project.

One-liners, while nice to know, are rarely the best solution for a problem. But if you really want to create one:

Output is:

- Miller

re: Extracting data from a file

hi..
that was imporesting :-)
can you please describe for me what
perl -pe 's/.*\b(\d+)\s*$/$1 /' report.txt
does ? part by part.
thanx