Search Results

perl -lane '$a{$F[0]}++}{foreach (keys %a){print "$_ $a{$_}"}' input

perl -pe 's/\"//g;s/,/\n/g' input.

perl -lne 'if (/Record/){$_= <> ;print}' Input

Didn't know that. Try this, Never done one liners in windows though.
This might work.


perl -F':|,' -lane "'$sum+=$F[1];}{print $sum/$.'" temp1

Can you try this

perl -F':|,' -lane '$sum+=$F[1];}{print $sum/$.' fps.csv
30.1827114285714

If you want a perl solution :)

perl -0ane 'print "$1 $2\n" while /(.*)\n(.*)\n/g' input

$ perl -lane '$k1="$F[0] $F[1] $F[2]";$k2="$F[0] $F[2] $F[1]";$h{$k1}+=0 if !(exists $h{$k1} || exists $h{$k2}) }{print foreach keys %h' inputfile

FILE is the name of the file handle,
in_file is the name of the file you are trying to read.

perl -0pe 's/\n;/;/g' input

perl -lne 's/\s+/\t/;print' inp

perl -pe 's/\bDS\b/blah/' input
DS1
DDS
blah

perl -0lne 'print "$1\n" while /Log viewer\/(\w+)/g' input

perl -0ne 'print $1 if /Start(.*)END/sg' input

Try this


perl -lne '$a=substr $_,10,9;$b=substr $_,31,9; s/$a/---------/g if($a!~/\d{9}/);s/$b/---------/g if($b!~/\d{9}/);print' input

How about this

perl -0pe 's/.*(real.*not\n).*/\1/sg' input

perl -0pe 's/\n/,/g' input

perl -ane 'if(/table/){$_=<>;@a=split;print "$F[7] - $a[1]\n"}' input

One more way,

perl -0pe '/pattern((.*\n){4})/;$_=$1' input.

How about this


use strict;
print "Enter File Name: ";
my $fileName = <STDIN>;
chomp($fileName);
print "Enter Number: ";
my $no = <STDIN>;
chomp($no);
if(-e $fileName)
{
...

Not sure why. For me its looks fine.
Ouput file is also Ascii text not a binary.

Whats your OS btw?

Remove the double quotes in the script.


perl -pe '$j=sprintf "%05d",++$i;s/\d+ /$j /' q6.txt

-0lne reads the whole file.
s/\n//g replaces all new line charecters and makes it into a single line.

print "$1\n" while /(.*?{})/g' this will try to do a minimalistic pattern match for any...

What have you tried so far?

Works here. See the output


perl -pe '$j=sprintf "%05d",++$i;s/\d+ /$j /' te1
( chp_testfile_00001 Blablabla. )
( chp_testfile_00002 Blablabla )
( chp_testfile_00003 Blablabla )

If {} marks the end of line, try this


perl -0lne 's/\n//g;print "$1\n" while /(.*?{})/g' input file.