#!/usr/bin/perl -w
# markus westphal 09.05.2005

use strict;
my ($i, @ar,$ind,$er);
#command-line Parameteruebergabe mit funktion

$ind="t1";
$er=&is_param($ind);

if ($er=="1"){
printf("Kein gueltiger Index!");
}
else{
printf("Suchindex=%s Ergebnis=%s\n",$ind , $er);
}

sub is_param () {
my($index) = @_;
my ($name,$wert,$i);
for ($i=0; $i<=$#ARGV; $i++) {
($name, $wert) = split("=",$ARGV[$i]);
if ($index eq $name){
return($wert);
}
}
return(1);
}