[linux] vypis suboru odkonca

[Andrej Neština]

Nj videl :-)

Dik za perl, ale neham si to radsej v bash, keby som sa k tomu niekedy
vratil, aby som sa v tom aj sam vyznal :-)


-----Original Message-----
From: linux-bounces na lists.linux.sk [mailto:linux-bounces na lists.linux.sk] On
Behalf Of Lubomir Host
Sent: Friday, November 24, 2006 10:28 AM
To: Vseobecna diskusia o Linuxe
Subject: Re: [linux] vypis suboru odkonca

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