Help for this page

Select Code to Download


  1. or download this
    unless ($input->{$key} =~ /^[a-zA-Z]?:?[^\<\>\:\"\|\?\*]+$/) {
    die "Error";
}#unless
  2. or download this
    unless ($input->{$key} =~ /^[a-zA-Z]?:?[^\<\>\:\"\|\?\*]+$/) {
    $input->{$key} =~ /[\<\>\:\"\|\?\*]/;
    die "Error, found $&";
}#unless
  3. or download this
    unless ($input->{$key} =~ /^[a-zA-Z]?:?[^\<\>\:\"\|\?\*]+$/) {
    $input->{$key} =~ s/^[a-zA-Z]://;
    $input->{$key} =~ /[\<\>\:\"\|\?\*]/;
    die "Error, found $&";
}#unless