#!/usr/bin/perl<\/span><\/div>use<\/span> warnings<\/span>;<\/span><\/div>use<\/span> strict<\/span>;<\/span><\/div>use<\/span> Data::<\/span>Dumper<\/span>;<\/span><\/div> <\/div>
<\/div>
my<\/span> $l<\/span>;<\/span><\/div>open<\/span> my<\/span> $fh<\/span>,<\/span> '<'<\/span>,<\/span> shift<\/span> ||<\/span> $0<\/span>;<\/span> <\/div>while<\/span>(<\/span><$fh><\/span>){<\/span><\/div> $l<\/span> =<\/span> $_<\/span> if<\/span> /say/<\/span>;<\/span><\/div>};<\/span><\/div>print<\/span> "$l\\n"<\/span>;<\/span><\/div>my<\/span> %h<\/span>;<\/span><\/div> <\/div>
$h<\/span>{<\/span>goatse<\/span>}<\/span>=<\/span>()<\/span>=<\/span> $l<\/span> =~<\/span> /( )/g<\/span>;<\/span> #4. force list context and then, scalar context <\/span><\/div>(<\/span>$h<\/span>{<\/span>match<\/span>})<\/span> =<\/span> $l<\/span> =~<\/span> /( )/g<\/span>;<\/span> #' '.list context but only assigning the first result<\/span><\/div>(<\/span>@<\/span>{<\/span>$h<\/span>{<\/span>array<\/span>}})<\/span> =<\/span> $l<\/span> =~<\/span> /( )/g<\/span>;<\/span> #[' ',' ',' ',' ']. list context<\/span><\/div>@<\/span>{<\/span>$h<\/span>{<\/span>array2<\/span>}}<\/span> =<\/span> $l<\/span> =~<\/span> /( )/g<\/span>;<\/span>#[' ',' ',' ',' ']. list context<\/span><\/div>$h<\/span>{<\/span>bool<\/span>}<\/span> =<\/span> $l<\/span> =~<\/span> /( )/g<\/span>;<\/span> #1. true / false<\/span><\/div>print<\/span> Dumper<\/span> \\<\/span>%h<\/span>;<\/span><\/div><\/pre><\/div>\n \n <\/div>\n\n