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

[Thorbjørn Ravn Andersen <sslug@sslug>]

"GERMO.000" wrote:

> 1) Hvordan får jeg skilt filnavn fra resten af stien og  filextension'en på dtd'en  ?

perldoc File::Basename

> 2) Når nu jeg har fået dannet mig et alfabetisk ordnet array, kan jeg så få splittet det op så jeg har grupper (nye arrays ?) med samme  begyndelsesbogstav ?
>     - Når nu I alle har svaret ja, så uddyb venligst hvordan :o)

Du kan løbe alle dine strenge igennem og tage første tegn ud fx med
"perldoc -f substr".  En nærliggende ting kunne være at opsamle dem i en
hash.

Her er en stump kode som gør hvad jeg tror du gerne vil have:

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

foreach my $s (@lines) {
    $l{substr($s,0,1)} .= $s;
}

foreach my $s (sort keys %l) {
    print "$s:\n";
    foreach (split(/\n/, $l{$s})) {
        print "  $_\n";
    }
}


__END__
abekat
abemad
abraham
banan
burgerbolle
danmark
============

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 Ravn Andersen           "...plus... Tubular Bells!"
  http://bigfoot.com/~thunderbear