Wert aus einer Schleife heraus ändern?

[Struppi]

my $i = 0;
foreach ($label,$artist,$title,$style,$quality)    {
         if ($_ =~ /^\s*$/)    {
         $_[$i] = '%';
         }
$i++;
}

Um Benutzereingaben zu prüfen, würd ich sowas nicht machen. regExpressions sind in dem Falle overkill.

Falls du die Einagben mit dem CGI Modul holst, dann würde ich sowas machen um die Warnungen zu vermeiden:

my $label = CGI::param('label') || '';

oder halt:

my $label = CGI::param('label') || '%';

Was aber schlecht ist. wenn du überprüfen willst ob der Benutzer was eingegeben hat:

my $label = CGI::param('label');

if(!$label) print "Angabe fehlt";

Falls ein Leerstring erlaubt ist:

if(!defined $label) print "Angabe fehlt komplett";

Struppi.