3 svar · 448 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 åäö *
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.