[linux] vypis suboru odkonca
Lubomir Host
rajo na platon.sk
Pátek Listopad 24 10:27:49 CET 2006
On Fri, Nov 24, 2006 at 10:22:31AM +0100, Andrej Neština wrote:
> Asi nie, miesto echo pouzijem link, echo som pouzil aby som to vydel
Asi si chcel napisat "videl". ;-)
> /usr/xpg4/bin/awk '!/^#/ { print; }' aa
>
> Podla mna by to dalo ten isty vystup.
$ cat linker.pl
#!/usr/bin/perl
use strict;
while (my $line = <STDIN>) {
chomp $line;
next if ($line =~ m/^\s*#/);
my ($src, $dst) = split(/ /, $line, 2);
link($src, $dst) or warn "Link failed: $!";
}
$ cat unlinker.pl
#!/usr/bin/perl
use strict;
while (my $line = <STDIN>) {
chomp $line;
next if ($line =~ m/^\s*#/);
unlink($line) or warn "Unlink failed: $!";
}
--
,''`. Lubomir Host 'rajo' <rajo AT platon.sk> ICQ #: 257322664
: :' : Jabber: rajo AT jabber.platon.sk VoIP: callto://rajo207
`. `' WWW: http://rajo.platon.sk/ Platon Group: http://platon.sk/
`- GnuPG key: DC0C C7EA 55C8 B089 C41D 944A F251 A93A 2361 A82F
Další informace o konferenci linux