Search Results

Hi Alister,
Thanks for your reply, let me realize that the while - read loop is totally unnecessary, I made the problem more complicated, since it is so simple. and you are very right that...

Hi ,
The codes run successfully in my cygwin environment, and I am sorry that I can't get any more test environment in weekend.
What's your environment , OS ? awk version ?
And I...

Hi guy,
try this and may it could work.$ echo '1001 000 HEADER
1001 001 RAJESH
1001 002 100
1001 002 200
1001 002 500
1001 006 FOOTER
1002 000 HEADER
1002 001 RAMESH
1002 002 100
1002...

I'm sorry to hear that, the 'find' in your OS must frustrated you..

Are you able to touch some file in the directory that you are monitoring ?
If so, you could run your script via cron every...

Sorry clippertm,
I think the problem of output all occurences is that we used the wildcard *.*
so maybe we must use sort after grep
Or use perl or awk as apmcd47 say, u know, both...

Sorry clippertm,
I made a mistake, delete the double plus.
grep -h '4=[745-755]' *.* | grep '3078=' | sort -u -t'|' -k2,2?
If [745-755] is not available, use this:
grep -h...

Hi guy,
this is a method to get your desired output, and it is modified from your code, may help u
awk '$1*1000%50==0{if($1/0.05>cnt){for(i=cnt;i<$1/0.05;i++){printf "%-8s %-8s\n", ...

Hi Scrutinizer,
Thanks for reminding me, when I was coding, I felt that I am missing something like bound check, but when I saw the result is correct and there is another thing disturbed me...

Founded that your need a minimum number, it frustrated me.
$ awk '{a[NR]=$0}$2=="1"{p=s+1;s=NR;for(i=p;i<=s;i++){if(p==1){print a[i]","s-i}else{x=i-p+1<s-i?i-p+1:s-i;print a[i]","x}}}' FS=',' file...

Hi guy,
try this: awk '{for(i=1;i<=NF;i++){a[i]=a[i]?a[i]"|"$i:$i}}
END{for(i=1;i<=length(a);i++){split(a[i],b);printf i;for(m in b){c[b[m]]++}for(n in c){printf "|"n"="c[n]}printf "\n";delete...

Hi Scrutinizer,
Thanks Scurtinizer, thanks for your advice.
\{1,\} is not nessesary, a [[:blank:]] is totally enough, the sed code is better after you edited it.

Hi guy,
Try this:
sed -n '/^a[[:blank:]]\{1,\}/{N;/\nb[[:blank:]]\{1,\}/p;D}'

cheers.

Hi guy,
As anbu123 said, if your data is sorted, you code is correct.
Mostly we do this to select non-duplicate records
awk '!a[$1]++' inputfile

Hi popeye,
'>>' redirect may can not used to a variable instead of a file.
If need to saves all 5 of the subs execution responses in a var or an array.

This codes may works.

Array:...

Hi Akshay,
In s/\$/RS/gg means global substitution. and 's' is the command.

And this is when g is a command.
g Copy/append hold space to pattern space



Sorry guy, see you have...

Hi guy,
$ is an anchor point to the end of a line in regular expression
Use \$

When you are in the command mode.
Input these
:g/^aternqaco\./d

Hi, I did some modification with your code.
Now it may works as you want, but may not all of the columns could format print beautifully.
And I must go to sleep now~
Good night.
mkdir result...

Do not filter the files with extensions

#!/usr/bin/perl -w
use warnings;
my $source_dir="/home/EDISON/test";
opendir(DIR, $source_dir) or die;
my @allfiles = grep {$_ ne '.' and $_ ne '..'...

If you do not mind to grep four times, this may could help you.

TP=`grep -c "1[[:blank:]]\{1,\}1$" infile`
TN=`grep -c "0[[:blank:]]\{0,\}0$" infile`
FN=`grep -c "0[[:blank:]]\{0,\}1$" infile`...

Hi, may you double check that you have modified this part of your code with chacko193's advice
if [ "$i"="puma" ]; then
the space " " between [ and "$i"
and the space " " between "puma" and ]
...

Hi, looks like your environment is so different with me.
For your code, I find that once $_=<> executed, the very first line would be deleted.
So may you try this?
perl -pi.orig -e '$/=undef;...