- or download this
...
# calculate $logtype
$hash_ref->{$logtype}++;
- or download this
if($_ =~ /\s+Description.*$/) {
chomp($description = <DATA>);
}
- or download this
if($_ =~ /\s+Description.*$/) {
while(chomp($description_line = <DATA>)) {
...
$description .= $description_line
}
}