Re: [PERL] [Newbee] Udskillelse af filnavn, sti og extension

[Ole Tange <sslug@sslug>]

On Sat, 20 Oct 2001, John Mørck Hansen wrote:

> "Thorbjørn Ravn Andersen" <sslug@sslug> skrev:
> >
> > Når du bliver bedre til Perl er der andre måder at gøre det på, men det
> > her er nok den nemmeste at læse for en begynder.
>
> Thorbjørn... Jeg ville gerne have den anden version !

#!/usr/bin/perl
chomp(@lines = sort <DATA>);
print join("/", @lines),"\n";

# Gruppér data
for (@lines) { /(.)/; push(@{$l{$1}},$_); }

# Udskrift
for $s (sort keys %l) {
    print "$s:\n";
    for (@{$l{$s}}) { print "  $_\n"; }
}


__END__
banan
abekat
danmark
abraham
abemad
burgerbolle



/Ole
-- 
"IBM is a great supporter of Linux if it can avoid pissing on its feet."
                                                       -- Karsten Self