Bort med allt utom alfanumeriska tecken.

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]

tack för hjälpen. löste sig finfint =)

// Joakim