Perl & Rubyur Perl, Python, Ruby och övrig CGI
3 svar · 438 visningar · startad av Joakim
Hej gott folk!
Sitter här på kontoret och har glömt min kära perlbok. Skulle behöva lägga till en snutt som kollar igenom en variabel och kollar så att den (den är bara ett tecken lång) bara består av en bokstav eller en siffra. Allt annat skall bort.
Trevlig helg!
// Joakim
Hej,
Kanske detta funkar?
#!/usr/bin/perl -w
use strict;
my $string = "*A?aBbCcD";
sub strip_string {
my ( $string ) = @_;
$string =~ s/[^0-9A-ZÅåÄäÖö]//ig;
return ( length( $string ) > 1 ) ? substr($string, 0, 1) : $string;
}
print strip_string($string);
* Fixat åäö *
------------------
Hansen
c.h@ngmedia.com
[Redigerat av Hansen den 06 jul 2001]
Fast du glömmde de små gemenerna... :)
$char='f';
print "Finfint" if(isAlfaNum($char));
sub isAlfaNum(){
return 1 if($_[0] =~ /^(\w|[åäöÅÄÖ])$/ );
}
--- Tillägg ---
Fast jag å andra sidan missade sista raden: "Allt annat skall bort" :)
Glöm detta inlägg.
------------------
/ J
[Redigerat av Jojoxx den 06 jul 2001]