Kennt sich hier wer mit PEARL aus?

smacked2 · 8. August 2005

hi

kennt sich hier wer mit PEARL aus? falls ja bräuchte hilfe bei folgender aufgabenstellung:

Fülle ein Array mit folgenden Werten (die Gänsefüsschen
gehören nicht zu dem Wert, sie sollen nur die Grenzen des
Strings verdeutlichen!):

" AAAABDEZWERDFDF"
" AAaaSEFSPEROJ234 .l"
"BBAAAAEERSDFER ERSE"
" AAA sdf sdf"

(Hier was zum Thema Listen/Arrays:
http://de.selfhtml.org/perl/sprache/listen.htm)

Ziel des Programmes soll es sein, die vorhanden Werte wie
folgt umzuwandeln:
Kleinbuchstaben sollen in Großbuchstaben umgewandelt werden
Alles was nicht Buchstabe und nicht Zahl ist, soll aus der
Variablen gelöscht werden.
Alle Variablen müssen mit AAA beginnen, ungültige Werte
sollen also als ungültig ausgegeben werden.
Das Programm sollte also folgende Ausgabe erzeugen (wieder
ohne die Gänsefüsschen, die sollen nur die Grenzen des
Strings verdeutlichen):

"AAAABDEZWERDFDF" ist gültig
"AAAASEFSPEROJ234l" ist gültig
"BBAAAAEERSDFER ERSE" ist ungültig
"AAASDFSDF" ist gültig

Für die Lösung dieser Aufgabe sind reguläre Ausdrücke nötig
(http://de.selfhtml.org/perl/sprache/rege...suchen_ersetzen)

Augegeben wird Text mit print.

wär super wenn mir da wer helfen könnte steh nämlich etwas auf dem schlauch ^^

gruß

smacked2

syntec · 8. August 2005

Wozu soll das gut sein? Hast Du denn schon mit der Arbeit angefangen?

smacked2 · 8. August 2005

ich bin grad dabei meinen rechner für perl einzurichten und nunja über sinn oder unsinn von solchen aufgaben kann man ja immer streiten ich wüsst einfach nur gerne wie ich die am besten angehe da ich grad keine idee hab wie ich die angehen soll

syntec · 8. August 2005

Sorry, aber das klingt für mich einfach nur nach einer dümmlichen Schulaufgabe ohne
irgendwelchen praktischen nutzen.

smacked2 · 8. August 2005

ok hier mal ein anfang bin ich auf dem richtigen weg?

#!/usr/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Test</title>\n";
print "</head><body>\n";

my @Array = ("AAAABDEZWERDFDF","AAaaSEFSPEROJ234 .l" ,"BBAAAAEERSDFER ERSE","AAA sdf sdf");
@Array = uc(@Array);

foreach(@Array) {
if( $_ =~ /^AAA/ ) {
print "$Array[0]\n";
print "$Array[1]\n";
print "$Array[2]\n";
print "$Array[3]\n";

}
}

print "</body></html>\n";

Suche

Kennt sich hier wer mit PEARL aus?

smacked2

Commodore

syntec

Lt. Commander

smacked2

Commodore

syntec

Lt. Commander

smacked2

Commodore