Opened by Gast at 2006-04-10 16:52
Hi hab nur kurz ne Frage kenne Perl seit ca 1 Stunde ^^ und hab mal den Quellcode gepostet was ich da bis jetzt fürn kack hab aus nen Tutorial xD. Frage ist nur wie ich das selbe nur mit Doppelbuchstaben mache o.O also soll nur die Zeilen nummerieren in den ein Wort mit Doppelbuchstabe drin ist und die Doppelbuschtaben in () setzen z.B
Do(pp)elbuchstaben :P
Zeilen sidn zwar klar die Verändert werden müssen nur in was x_X
Crian: CODE-Tags\n\n
<!--EDIT|Crian|1144674124-->
Do(pp)elbuchstaben :P
Zeilen sidn zwar klar die Verändert werden müssen nur in was x_X
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!usr/local/bin/perl
#
my $z = 1;
$text = '/SAN/content/cgi-bin/text';
open (INFO, $text);
@lines = <INFO>;
close (INFO);
foreach $zeile (@lines)
{
if ($zeile=~/[a-z]/ ) {
$zeile =~ s/([A-Z])/*$1*/g;
print "$z\t$zeile";
$z = $z +1
}
else {
print "\t$zeile";
}
}
Crian: CODE-Tags\n\n
<!--EDIT|Crian|1144674124-->