---
title: "Bort med allt utom alfanumeriska tecken."
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/19384-bort-med-allt-utom-alfanumeriska-tecken"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Joakim"
published: "2001-07-06T10:14:00.000Z"
updated: "2001-07-09T11:22:00.000Z"
replies: 3
views: 448
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/perl-ruby/19384-bort-med-allt-utom-alfanumeriska-tecken"
---

# Bort med allt utom alfanumeriska tecken.

## #1 — Joakim, 2001-07-06T10:14Z

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

Permalänk: https://www.webforum.nu/p/19384

## #2 — Hansen, 2001-07-06T11:23Z

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 åäö \*

Permalänk: https://www.webforum.nu/p/341931

## #3 — Jojoxx, 2001-07-06T11:51Z

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.

Permalänk: https://www.webforum.nu/p/341932

## #4 — Joakim, 2001-07-09T11:22Z

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

// Joakim

Permalänk: https://www.webforum.nu/p/341933

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/19384-bort-med-allt-utom-alfanumeriska-tecken