Help for this page

Select Code to Download


  1. or download this
    if(/^\%/) {
    my $tag = shift @line;
    my $full = join ' ', @line;
    push @{$outer{$tag}}, $full;
}
  2. or download this
    if(/^\%/) {
    my $full = join ' ', @line[1 .. $#line];
    push @{$outer{$line[0]}}, $full;
}
  3. or download this
    if(/^\%/) {
    push @{$outer{$line[0]}}, join ' ', @line[1 .. $#line];
}
  4. or download this
    push @{$outer{$line[0]}}, join ' ', @line[1 .. $#line] if /^\%/;