inspired by What one-liners do people actually use? i wrote a little utility for bash:
addhist.pl:
#!/usr/bin/perl use strict; use warnings; my @lines = <>; pop @lines; my $hist = join '', @lines; my $history = "$ENV{HOME}/.oneliners"; $hist =~ s/\A\s*\d+\s+//; open my $fh, ">>", $history or die $!; print $fh $hist; close $fh;
i can't get this to work with "oneliners" that have more than one line, though...# put these in your .bashrc alias addhist="history 2 | addhist.pl" alias readhist="history -r ~/.oneliners" $ perl -wle'something short and useful' $ addhist [hours or days later...] $ readhist $ !! # will get you your last saved oneliner from above
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: remember perl one-liners
by vek (Prior) on Dec 11, 2005 at 09:13 UTC | |
by tinita (Parson) on Dec 11, 2005 at 14:37 UTC | |
Re: remember perl one-liners
by l3v3l (Monk) on Dec 14, 2005 at 20:15 UTC | |
by tinita (Parson) on Dec 14, 2005 at 21:22 UTC | |
by l3v3l (Monk) on Dec 14, 2005 at 21:54 UTC | |
Re: remember perl one-liners
by chanio (Priest) on Dec 23, 2005 at 06:12 UTC |
Back to
Cool Uses for Perl