Letztes Zeichen aus einem Skalar löschen: Wieviele Methoden mag es dafür geben? (Seite 2) (Allgemeines zu Perl)

havi

2006-10-10 09:48

User since
2003-08-04
2036 Artikel
BenutzerIn

Code: (dl )

$text = substr($text,0,-1);

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

renee

2006-10-10 10:21

User since
2003-08-04
14371 Artikel
ModeratorIn

@havi: Wobei da nicht berücksichtigt ist, dass das letzte Zeichen nur entfernt werden soll, wenn es ein '/' ist...

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/

havi

2006-10-10 11:15

User since
2003-08-04
2036 Artikel
BenutzerIn

hab ich wohl ueberlesen... na dann halt hinten dazu

Code: (dl )

if substr($text,0,-1) eq "/";

\n\n

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

havi

2006-10-10 11:16

User since
2003-08-04
2036 Artikel
BenutzerIn

aber diese Loesung finde ich besser:

Code: (dl )

$text =~ s%\/$%%;

LG\n\n

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Crian

2006-10-10 12:04

User since
2003-08-04
5873 Artikel
ModeratorIn

Ui da hat aber jemand tief gegraben =)

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

rupe

2006-10-10 12:56

User since
2006-10-02
4 Artikel
BenutzerIn
[default_avatar]

Hey, danke an euch alle! :D

pq

2006-10-10 13:52

User since
2003-08-04
12209 Artikel
Admin1

[quote=havi,10.10.2006, 09:16]aber diese Loesung finde ich besser:

Code: (dl )

$text =~ s%\/$%%;

[/quote]
nicht dass die schon erwähnt wurde oder so...

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

murphy

2006-10-10 14:33

User since
2004-07-19
1776 Artikel
HausmeisterIn

Was haltet ihr denn von

Code (perl): (dl )

{ local $/ = '/'; chomp $text; }

zum Entfernen eines Slashes am Stringende ;)

When C++ is your hammer, every problem looks like your thumb.

havi

2006-10-10 14:45

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=pq,10.10.2006, 11:52][quote=havi,10.10.2006, 09:16]aber diese Loesung finde ich besser:

Code: (dl )

$text =~ s%\/$%%;

[/quote]
nicht dass die schon erwähnt wurde oder so...[/quote]
Ist schon klar, aber hat sich eben im "Gespräch" so ergeben es nochmal zu posten!

*mirissofaddasichdassoforterwaehnenmuss*

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

Taulmarill

2006-10-10 17:01

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

[quote=havi,10.10.2006, 09:15]hab ich wohl ueberlesen... na dann halt hinten dazu

Code: (dl )

if substr($text,0,-1) eq "/";

[/quote]
müsste das nicht richtig so aussehen?

Code: (dl )

$text = substr($text,0,-1) if substr($text,-1,1) eq "/";

dann is mir noch das hier eingefallen :-)

Code: (dl )

$text .= join "", grep{ $_ ne "/" } chop $text;

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B