Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
my %map;
$map{$1} = $2 while s/^.*? (\S+)="([^"]+)"//g;
print "$_: $map{$_}\n" for keys %map;
  2. or download this
    grade: 7
teacher: Priyanka
remarks: Good,Verygood,bext,excellent
  3. or download this
    print map {"$1: $2\n" if /(\S+)="([^"]+)"/} split;