Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]7058[/thread]

find mit Skalarvariabel



<< >> 9 Einträge, 1 Seite
DeluxXx
 2005-06-19 18:36
#55582 #55582
User since
2005-06-19
10 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
$html=abc;
while ($html =~ s/$html/cdef/) {
}


mir ist klar das dies nicht funktioniert aber wie bring ich es dazu zu funktionieren ??? also es soll nach der skalarvariabel $html (abc) gesucht und ersetzt werden aber das mit der skalarvariable funzt ja nicht
pls help me
Dankeschoen
jan
 2005-06-19 18:56
#55583 #55583
User since
2003-08-04
2536 Artikel
ModeratorIn
[Homepage] [default_avatar]
mh, der inhalt von $html soll nach $html durchsucht werden und das dann durch cdef ersetzt werden?
da wird immer cdef rauskommen...
DeluxXx
 2005-06-19 19:05
#55584 #55584
User since
2005-06-19
10 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
$b=abcdefghiklcafkasgf;
 $html=abc;
while ($b =~ s/$html/cdef/) {
}


srry ich hab wohl beim ersten bsp was übersehn =) oben hab ich die korrektur angefügt.
des problem is ja es wird nach $html in $b gesucht aber nicht nach abc also is $html in dem fall keine skalarvariable\n\n

<!--EDIT|DeluxXx|1119194088-->
esskar
 2005-06-19 20:52
#55585 #55585
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
geht doch prima:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
use strict;

my $b = "abcdefghiklcafkasgf";
my $html = "abc";
# while ($b =~ s/$html/cdef/) {
# }
# kann durch g schalter ersetzt werden

$b =~ s/$html/cdef/g;
print $b;
DrWhiteLetter
 2005-06-19 20:54
#55586 #55586
User since
2005-01-30
26 Artikel
BenutzerIn
[default_avatar]
Hi, du!

Du hast vergessen, die Anführungszeichen zu setzen, welche bei Strings benötigt werden.

Code: (dl )
1
2
3
4
5
6
#!/usr/bin/perl -w

$b="abcdefghijklmnopqrstuvwxyz";
$html="abc";
$b=~s/$html/cdef/g;
print $b;


//Edit:
Misst, jetzt dachte ich, ich bin einmal schneller als die Anderen... da kam esskar. ;)\n\n

<!--EDIT|DrWhiteLetter|1119201205-->
esskar
 2005-06-19 21:24
#55587 #55587
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=DrWhiteLetter,19.06.2005, 18:54]Du hast vergessen, die Anführungszeichen zu setzen, welche bei Strings benötigt werden.[/quote]
mit nichten

Code: (dl )
1
2
3
4
$b = abcdefghiklcafkasgf;
$html = abc;
$b =~ s/$html/cdef/g;
print $b;


man darf eben kein strict/warnings anschalten.
wusste ich bis vor ner halben stunde auch nicht!
Dubu
 2005-06-19 23:10
#55588 #55588
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image
[quote=esskar,19.06.2005, 19:24]wusste ich bis vor ner halben stunde auch nicht![/quote]
Du bist offensichtlich nicht von der Shellprogrammierung zu Perl gekommen. ;)
Strat
 2005-06-20 13:18
#55589 #55589
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
interessant wird's nur, wenn es eine funktion namens abcdefghijklcafkasgf gibt...
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
Crian
 2005-06-23 12:26
#55590 #55590
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
[quote=Strat,20.06.2005, 11:18]interessant wird's nur, wenn es eine funktion namens abcdefghijklcafkasgf gibt...[/quote]
In der Tat:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
C:\Daten\perl>cat nostrict1.pl
$b = abcdefghiklcafkasgf;
print "b = $b\n";
$html = abc;
$b =~ s/$html/cdef/g;
print $b;

sub abcdefghiklcafkasgf { blaubart }

C:\Daten\perl>nostrict1.pl
b = abcdefghiklcafkasgf
cdefdefghiklcafkasgf


und

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
C:\Daten\perl>cat nostrict2.pl
sub abcdefghiklcafkasgf { blaubart }

$b = abcdefghiklcafkasgf;
print "b = $b\n";
$html = abc;
$b =~ s/$html/cdef/g;
print $b;

C:\Daten\perl>nostrict2.pl
b = blaubart
blaubart


!
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
<< >> 9 Einträge, 1 Seite



View all threads created 2005-06-19 18:36.