Help for this page

Select Code to Download


  1. or download this
    my %data = (
  RN => 'Joe',
...

my $prompt = "-RN- \@ -LOC-";
$prompt =~ s/-([^-]+)-/$data{$1} || "-$1-"/eg;
  2. or download this
    %map = (
  UN => 0,
...
}eg;

my $output = sprintf($pattern, @user_info[@slices]);