erklärungsbedarf (Perl/CGI) - Perl-Community.de

[thread]720[/thread]

erklärungsbedarf

Gast Gast

2006-05-02 15:15

hi kann mir maybe jemand die zeilen mal verständlich erklären hab die aus einem anderen beitrag.

Code: (dl )

# Links laden
##############

my ( @data, @links, @texts );

if (! -f $file ) {
   &create_linklist;
}
else {
   open ( F, '<', $file ) || die "Could not open $file. $!";
   @data = grep { /^[^#]/ } <F>;
   close F;
   $i = $k = 0;
   foreach ( @data ) {
        chomp ( $_ );
        if ( $_ =~ /^LINK:\s/ ) {
                $_ =~ s/^LINK:\s//;
                $links[$i] = $_;
                $i++;
        }
        else {
                $_ =~ s/^TEXT:\s//;
                $texts[$k] = $_;
                $k++;
        }
   }
}

Taulmarill

2006-05-02 15:45

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

was genau verstehst du nicht? die regulären ausdrücke? oder das if () {} else {}? oder was?

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

lichtkind

2006-05-02 15:48

User since
2004-03-22
5697 Artikel
ModeratorIn + EditorIn

naja es prüft ob der dateiname zu einer textdatei gehört. wenn ja öffnet er sie, fischt die kommentarzeilen raus (die mit "#" anfangen) und packt deren inhalte in 2 verschiedene arrays je nahcdem womit sie anfangen

Code: (dl )

# Links laden
##############

my ( @data, @links, @texts );

unless (-f $file) {
  &create_linklist;
} else {
  open ( F, '<', $file ) || die "Could not open $file. $!";
  @data = grep { /^[^#]/ } <F>;
  close F;
  foreach ( @data ) {
       chomp;
       s/^([LINK|TEXT]:)(.+)/$2/;
       if ($1 eq 'LINK')  { push @links }
       else                { push @texts }
  }
}

EDIT habs nochmal gekürzt\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

Strat

2006-05-03 20:58

User since
2003-08-04
5246 Artikel
ModeratorIn

Code: (dl )

my $file = "....";
my (@links, @texts);

unless (-f $file) {
  # &create_linklist ohne klammern bedeutet &create_linklist(@_) !!!
  &create_linklist();
}
else {
  open (my $FH, "<", $file )  or die "Error: couldn't read '$file': $!\n";
  my @data = grep { not /^\s*\#/ } <$FH>;
  close( $FH );
  chomp( @data );

  my @links = ();
  foreach my $line (@data) {
    if   ( $line =~ s/^LINK:\s*/ ) { push (@links, $line)     }
    elsif( $line =~ s/^TEXT:\s*/ ) { push (@texts, $line)     }
    else                           { print "invalid: $line\n" }
  } # foreach
} # else

\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Ronnie

2006-05-03 21:58

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Wenn man einen Hash nimmt kann man das ganze noch schön eindampfen:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

#open ( F, '<', $file ) || die "Could not open $file. $!";
my %lut;
/^(LINK|TEXT):(.*)$/ and push @{$lut{$1}}, $2 while (<DATA>);
die Dumper \%lut;
#close F;

_ _DATA_ _
#wgongwog
LINK:http://www.perl-community.de
#1324wgongwog
#
LINK:http://www.example.com
TEXT:there is more than one way to do it
LUI:bla
#