Re: tcsh/perl alias question ...

Replies are listed 'Best First'.
Re^2: tcsh/perl alias question ... by hoafaloaf (Initiate) on Apr 03, 2009 at 07:32 UTC
But that's cheating! I think environmental variables are the way to go, actually (just figured this out): `alias ka 'setenv _KA_ '"'"'\!*'"'"';ps -ef\|&perl -n -e '"'"'BEGIN{$A=( +split(" ",$ENV{"_KA_"}\|\|exit(0)))[0]}END{@a&&kill(9,@a)&&print"Killed +: @a\n":"No process found to kill!\n"}($a=(split())[1])!=$$&&/$A/&&ki +ll(2,$a)&&push(@a,$a)&&print'"'"''` [download] How's that?	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: tcsh/perl alias question ...
by hoafaloaf (Initiate) on Apr 03, 2009 at 07:32 UTC

alias ka 'setenv _KA_ '"'"'\!*'"'"';ps -ef|&perl -n -e '"'"'BEGIN{$A=(
+split(" ",$ENV{"_KA_"}||exit(0)))[0]}END{@a&&kill(9,@a)&&print"Killed
+: @a\n":"No process found to kill!\n"}($a=(split())[1])!=$$&&/$A/&&ki
+ll(2,$a)&&push(@a,$a)&&print'"'"''
[download]

[reply]
[d/l]