Perl: Switch, multiple case match, wie?

[jean_luc_picard]

Hallo Leute,

ich versuche gerade mit dem Switch-Modul klarzukommen. Hat bisher auch ganz gut geklappt, nur wollte ich jetzt einige Bereiche zusammenfassen. Leider habe ich bisher nirgendwo gefunden, wie der Syntax für ein multiple case match lauten muss.

Ein Beispiel:

$var="eins";
use Switch;
switch $var
	{
	case "eins"
		{
		print "1: ";
		next;
		}
	case "zwei"
		{
		print "2: ";
		next;
		}
	case "eins"||"zwei"
		{
		print "ist kleiner als 3\n";
		}
	}

Hat jemand nen Tip für mich ?

Gruß, Picard

[jean_luc_picard]

Edit:

Zu früh gefreut, funktionierte doch nicht wie erwartet...

[tomes]

Das hilft dir zwar nicht direkt weiter, aber ich bau mir so etwas (switch-Anweisung) immer selber

#!/usr/bin/perl -w
use strict;
my $var=$ARGV[0];
my %switch=( 1=> "eins", 2=> "zwei", 3=> "drei");
if($switch{$var}){
    print $switch{$var}."\n";
}else{ 
    print "nicht eins,zwei oder drei\n";
}

exit;

Vielleicht nutz es dir ja aber doch

tomes