Schrift
[thread]5400[/thread]

perl upgrade: fehler seit perl5.8.1 upgrade (Seite 2)



<< |< 1 2 >| >> 15 Einträge, 2 Seiten
havi
 2004-01-28 10:12
#48582 #48582
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
[quote=Dubu,15.01.2004, 11:35][quote=havi,15.01.2004, 11:12]
Code: (dl )
$dokument =~ tr/ +/ /s;          # mehrfache Blanks weg


oder?[/quote]
Warum willst du auch Pluszeichen ersetzen? ;)[/quote]
Code: (dl )
$dokument =~ s% +% %g;

... ersetzt nicht das Plus-Zeichen!!!

Gruss
pq
 2004-01-28 13:16
#48583 #48583
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[quote=havi,28.01.2004, 09:12]
Code: (dl )
$dokument =~ s% +% %g;

... ersetzt nicht das Plus-Zeichen!!![/quote]
@havi: das behauptet auch keiner. lesen hilft. du schriebst tr/// und nicht s///,
und bei tr/ +//s werden nun mal pluszeichen ersetzt.
auch drei ausrufezeichen!!!
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem
havi
 2004-01-28 13:31
#48584 #48584
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
[quote=pq,28.01.2004, 12:16][quote=havi,28.01.2004, 09:12]
Code: (dl )
$dokument =~ s% +% %g;

... ersetzt nicht das Plus-Zeichen!!![/quote]
@havi: das behauptet auch keiner. lesen hilft. du schriebst tr/// und nicht s///,
und bei tr/ +//s werden nun mal pluszeichen ersetzt.
auch drei ausrufezeichen!!![/quote]
Teste mal:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl

use warnings;
use strict;

my $string = "H avi";

$string =~ tr% +% %s;

print $string;


Gruss
Crian
 2004-01-28 14:19
#48585 #48585
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
Test Du mal

Code: (dl )
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl

use warnings;
use strict;

my $string = "H+a+v+i";

$string =~ tr% +% %s;

print $string;


tr ist nicht s ;)\n\n

<!--EDIT|Crian|1075292490-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
havi
 2004-01-28 14:30
#48586 #48586
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
OK, ist mir klar!

Gruss
<< |< 1 2 >| >> 15 Einträge, 2 Seiten



View all threads created 2004-01-14 16:34.