Hi erstmal hab ein problemchen komm bei einer Sache nicht weiter Tutorialpage
hab von dem Kapitel davor diesen Code gemacht, der auch läuft nur irgendwie ist es mir zu kompliziert geschrieben wie ich die nächste Übungsaufgabe machen soll, kann mir da einer maybe weiterhelfen, bin halt noch nicht so Perl-Profi
Mein Quellcode:
#!/usr/local/bin/perl
#
#
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print "Content-type: text/plain\n\n";
my $text = '/SAN/content/cgi-bin/text';
my ($out, $tmp);
open (F, "<", $text);
my @lines = <F>;
close (F);
chop( @lines );
my $lines = "@lines";
#Hauptroutine
&suchstring;
&for;
#Subroutinen
sub suchstring {
my $s = "[Dd]u";
@lines = split ( /$s/, $lines );
}
sub for {
for ( my $i = 0; $i < $#lines; $i++ ) {
$out = substr( $lines[$i], length($lines[$i]) - 20, 20 );
$out .= "du";
$out .= substr( $lines[$i + 1], 0, 20 );
print $out."\n";
}
}
exit 0;
Uebung lautet:
Man nehme die Uebung des letzten Kapitels und tausche die Parameter der Subroutine aus. Damit das funktioniert, muss man eine Referenz auf den Array der Textstücke übergeben und in der Subroutine den Array dereferenzieren.
Ich versteh da nicht wirklich die Aufgabenstellung x_X
Naja wäre für ein wenig Hilfe (egal welche art) von euch Könnern sehr dankbar
bye bye
Datum: 19.04.2006-15:11
Referenzen
