version 1.4, 2000/06/29 20:18:44
|
version 1.5, 2000/07/20 15:37:54
|
Line 105 sub styleparser {
|
Line 105 sub styleparser {
|
} |
} |
} |
} |
$current_value =~ s/(\s)+/$1/g; |
$current_value =~ s/(\s)+/$1/g; |
if ($current_value ne ' ' and $current_value ne '' ) { |
if ($current_value ne '' ) { |
push (@value_style,lc $current_key,$current_value); |
push (@value_style,lc $current_key,$current_value); |
} |
} |
$current_key = ''; |
$current_key = ''; |
Line 113 sub styleparser {
|
Line 113 sub styleparser {
|
} |
} |
my %style_for_target = @value_style; |
my %style_for_target = @value_style; |
# check printing |
# check printing |
while (($current_key,$current_value) = each %style_for_target) { |
# while (($current_key,$current_value) = each %style_for_target) { |
print "$current_key => $current_value\n"; |
# print "$current_key => $current_value\n"; |
} |
# } |
# return result |
# return result |
return %style_for_target; |
return %style_for_target; |
} |
} |