Search Results

$ 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

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)
{
...

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

-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...

If {} marks the end of line, try this


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

Try this Insert ^M by using ^v and ^M

perl -0ne 'print "Control Chars found in $ARGV" if /^M/g' txt.txt

Try this

perl -pe 's/(.+HD)\/.*/\1/'

Remove the chomp part.
$input = <STDIN>;
then if ($input =~ /\n/) should work.

Is this what you are looking for
Input:
this is test
one
two
three
four
two
one
end of file


"one" is the search string here.

Code:
perl -0ne 'print $1 if /one(.*)one/sg' test
...

Try this

perl -lane '$hash{$F[0]}+=$F[1];END{print "$_\t$hash{$_}" for keys %hash}' input

Unilearn,

Anyways i dont have work now, so here it goes :)

-lane reads the file line by line, -a splits the line and store array @F.
Read perldoc to get more on this.
...

perl -lne 'print /\/(\w+\.html)/g' temp.txt

Indeed. Nice way to do it.

---------- Post updated at 01:13 PM ---------- Previous update was at 01:06 PM ----------




This should fix that.


perl -lane...

Try this. Here the output also will tab separated. Change \t to any other delimiter if you dont want tab separated output.

perl -lane...

How about this


df -h | perl -ne 'print if (/(\d+)%/ && $1>70)'

This will print only the numbers you are expected to see.
As per your input it should print 97 twice.
From there its fairly easy to do the calculation yourself.


perl -0lne...

#=> GMT+11 is the comment part. If you want to change the actual time zone change it like this


@time=gmtime(time +(11*3600)); #=> GMT +11


Also you dont the shell scripts.

Just run...

This should do it, replace the perl part in your code.


perl -e '
use POSIX qw(strftime);
use Time::Local;
@inp = split(/-/,$ARGV[0]);
$epochTime = timegm(0,0,0,$inp[2],$inp[1],$inp[0]);...

perl -0ane 'BEGIN{$cols=3;$k=0}END{foreach(@F){$j=sprintf("%03d",++$k);$hash{$j}.= "$_\t";$k=0 if($k == (($#F+1)/$cols))}; for (sort keys %hash){chop($hash{$_});print "$hash{$_}\n"}}' inp

Hi,

Can you post the the code which gives the output as shown above.

This should print them line by line.

perl -F// -lane 'BEGIN{$"=":"} push(@arr,unpack("H*",$_)) for @F; print "@arr"; @arr=()' ascii

If you want the o/p in a file, Redirect it using >.

Problem happened when it was getting sorted. It sorts row 1,10...19,then 2,3 etc.,

I have added formatting for rows to fix that

Hope this code will your issue.

perl -0ane...

perl -F'\\' -lane 'for (@F){print $_ .":". length $_ if($_)}' names

Output:

folder name :12
folder1 :9
folder2 :9
folder3 :9
folder4:8
folder name :12
very long folder name :23
...

Columns will be in the order of how the file are given.


perl -lane '$hash{$F[1]}.=" $F[8]";END{print "$_ $hash{$_}" for keys %hash}' file1 file2


And the output is

ab2 0.0007...

Oops!!..
This should work.


perl -le 'foreach(@ARGV){if($_ =~/\$/){$a =$_; $a=~s/\$/\\\$/g;$_=~s/\$//g; print `mv $a $_`}}' *