Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6305[/thread]

Funktion



<< >> 8 Einträge, 1 Seite
renee
 2004-05-27 13:16
#82935 #82935
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
my $var = 'Dies ist; ein Test!';
my $anzahl = index($var,';');
print "Vor dem; sind $anzahl Zeichen";
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
esskar
 2004-05-28 05:30
#82936 #82936
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
ich bin immer für eine schnelle Lösung; da bringt der TIMTOWTDI Glaube nix; wenn es langsam ist!
pq
 2004-06-02 15:46
#82937 #82937
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
das hat ja nix mit webprogrammierung zu tun. verschoben nach Allgemeines
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
Gast Gast
 2004-05-27 12:57
#82938 #82938
Hallo zusammen
Ich suche eine Funktion in Perl mit der ich nach einem Zeichen (bei mir ein ; ) suchen kann. Mein Wert den ich bekommen soll, ist dann die Zahl welche die Anzahl Zeichen vor dem ; sind. Kann mir jemand weitehelfen?

edit renee: leerzeichen eingefügt, um smiley zu verhindern...\n\n

<!--EDIT|renee|1085649276-->
Gast Gast
 2004-05-27 17:07
#82939 #82939
Sowas kann man natürlich auch viel komplizierter machen ... ;)

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
my $var = 'Dies ist; ein Test!';
my $anzahl;

$anzahl = length((split(/\;/, $var))[0]);
print "Vor dem; sind $anzahl Zeichen\n";

$var =~ /\;/g;

$anzahl =  length($`);
print "Vor dem; sind $anzahl Zeichen\n";

$anzahl =  pos($var) - 1;
print "Vor dem; sind $anzahl Zeichen\n";
gige
 2004-05-28 11:58
#82940 #82940
User since
2004-05-27
1 Artikel
BenutzerIn
[default_avatar]
Danke für eure schnell Antworten. Durch eure Hilfe funktioniert mein Programm. :-)
esskar
 2004-06-03 04:43
#82941 #82941
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=pq,02.06.2004, 13:46]das hat ja nix mit webprogrammierung zu tun. verschoben nach Allgemeines[/quote]
ach, schön, dass es dich gibt! :)
pq
 2004-06-03 19:39
#82942 #82942
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
[quote=esskar,03.06.2004, 02:43][quote=pq,02.06.2004, 13:46]das hat ja nix mit webprogrammierung zu tun. verschoben nach Allgemeines[/quote]
ach, schön, dass es dich gibt! :)[/quote]
irgendeiner muss ja mal für ordnung sorgen hier!
:p
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
<< >> 8 Einträge, 1 Seite



View all threads created 2004-05-27 13:16.