# Search Results

 10-28-2011 1,803 Posted By getmmg perl -lane '\$a{\$F[0]}++}{foreach (keys %a){print... perl -lane '\$a{\$F[0]}++}{foreach (keys %a){print "\$_ \$a{\$_}"}' input
 10-04-2011 14,692 Posted By getmmg perl -pe 's/\"//g;s/,/\n/g' input. perl -pe 's/\"//g;s/,/\n/g' input.
 10-04-2011 1,014 Posted By getmmg perl -lne 'if (/Record/){\$_= <> ;print}'... perl -lne 'if (/Record/){\$_= <> ;print}' Input
 09-05-2011 7,981 Posted By getmmg Didn't know that. Try this, Never done one liners... 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
 09-05-2011 7,981 Posted By getmmg Can you try this perl -F':|,' -lane... Can you try this perl -F':|,' -lane '\$sum+=\$F[1];}{print \$sum/\$.' fps.csv 30.1827114285714
 09-05-2011 1,121 Posted By getmmg If you want a perl solution :) perl -0ane... If you want a perl solution :) perl -0ane 'print "\$1 \$2\n" while /(.*)\n(.*)\n/g' input
 08-26-2011 2,876 Posted By getmmg \$ perl -lane '\$k1="\$F[0] \$F[1] \$F[2]";\$k2="\$F[0]... \$ 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
 07-28-2011 1,070 Posted By getmmg FILE is the name of the file handle, in_file is... FILE is the name of the file handle, in_file is the name of the file you are trying to read.
 07-07-2011 3,023 Posted By getmmg perl -0pe 's/\n;/;/g' input perl -0pe 's/\n;/;/g' input
 06-29-2011 3,233 Posted By getmmg perl -lne 's/\s+/\t/;print' inp perl -lne 's/\s+/\t/;print' inp
 06-29-2011 10,650 Posted By getmmg perl -pe 's/\bDS\b/blah/' input DS1 DDS blah perl -pe 's/\bDS\b/blah/' input DS1 DDS blah
 06-29-2011 1,456 Posted By getmmg perl -0lne 'print "\$1\n" while /Log... perl -0lne 'print "\$1\n" while /Log viewer\/(\w+)/g' input
 06-28-2011 1,817 Posted By getmmg perl -0ne 'print \$1 if /Start(.*)END/sg' input perl -0ne 'print \$1 if /Start(.*)END/sg' input
 06-24-2011 2,201 Posted By getmmg Try this perl -lne '\$a=substr... 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
 06-24-2011 12,615 Posted By getmmg perl -0pe 's/\n/,/g' input perl -0pe 's/\n/,/g' input
 06-23-2011 1,408 Posted By getmmg perl -ane 'if(/table/){\$_=<>;@a=split;print... perl -ane 'if(/table/){\$_=<>;@a=split;print "\$F[7] - \$a[1]\n"}' input
 06-23-2011 1,141 Posted By getmmg One more way, perl -0pe... One more way, perl -0pe '/pattern((.*\n){4})/;\$_=\$1' input.
 06-22-2011 763 Posted By getmmg How about this use strict; print... How about this use strict; print "Enter File Name: "; my \$fileName = ; chomp(\$fileName); print "Enter Number: "; my \$no = ; chomp(\$no); if(-e \$fileName) { ...
 06-22-2011 3,944 Posted By getmmg Not sure why. For me its looks fine. Ouput... Not sure why. For me its looks fine. Ouput file is also Ascii text not a binary. Whats your OS btw?
 06-22-2011 1,587 Posted By getmmg Remove the double quotes in the script. ... Remove the double quotes in the script. perl -pe '\$j=sprintf "%05d",++\$i;s/\d+ /\$j /' q6.txt
 06-22-2011 3,944 Posted By getmmg -0lne reads the whole file. s/\n//g replaces... -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...
 06-22-2011 763 Posted By getmmg What have you tried so far? What have you tried so far?
 06-22-2011 1,587 Posted By getmmg Works here. See the output perl -pe... 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 )
 06-22-2011 3,944 Posted By getmmg If {} marks the end of line, try this ... If {} marks the end of line, try this perl -0lne 's/\n//g;print "\$1\n" while /(.*?{})/g' input file.
 Showing results 1 to 25 of 124

## Featured Tech Videos

All times are GMT -4. The time now is 07:10 AM.