|
|
|
google unix.com
|
|||||||
| Forums | Register | Forum Rules | Links | Albums | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
| Shell Programming and Scripting Post questions about KSH, CSH, SH, BASH, PERL, PHP, SED, AWK and OTHER shell scripts and shell scripting languages here. |
More UNIX and Linux Forum Topics You Might Find Helpful
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Hash Question in Perl | deadletter | Shell Programming and Scripting | 6 | 07-17-2008 06:07 PM |
| Perl Hash | Harikrishna | Shell Programming and Scripting | 1 | 06-04-2008 08:03 AM |
| Perl Hash | Harikrishna | Shell Programming and Scripting | 1 | 06-03-2008 12:45 AM |
| Hash in perl | Harikrishna | Shell Programming and Scripting | 1 | 06-02-2008 05:00 AM |
| perl hash question | hankooknara | Shell Programming and Scripting | 3 | 07-28-2007 02:31 PM |
 |
Powered by 
|
|
|
LinkBack | Thread Tools | Search this Thread | Rate Thread | Display Modes |
|
|
07-11-2008
|
||||
|
||||
|
perl help on hash
HTML Code:
I have line which is read from xml doc. I want to put this line into hash(perl variable). find line below and how i want to put this in hash
<font size="10" type="int" name="ABC" >
hash key should be size, type and name with corresponding value
I doing as below:-
[CODE]$line =~ s/\s*.*?\s//;
$line =~ s/\>(.*?\>)*\s*$//;
$line =~ s/=/=\>\'/g;
$line =~ s/ /\'\, /g;
$line =~ s/\"//g;
$line = $line."'";[/CODE]
|
|
07-11-2008
|
||||
|
||||
|
...and the rest of your question is...?
|
|
07-12-2008
|
|||||
|
|||||
|
If I understand your question right, you are looking for something like the following: Code:
use strict;
use warnings;
my $line = '<font size="10" type="int" name="ABC" >';
print "\nORIGINAL LINE: $line\n";
$line =~ s/\s*.*?\s//;
$line =~ s/\s+\>$//;
$line =~ s/"//g;
print "\nPRIOR TO LINE SPLIT: $line\n";
my @arr = split(/[=\s+]/, $line);
print "\nAFTER LINE SPLIT INTO ARRAY\n\n";
foreach my $val (@arr) {
print "$val\n";
}
my %hash=@arr;
print "\nAFTER CONVERSION TO HASH\n\n";
foreach (sort keys %hash) {
print "$_ = $hash{$_}\n";
}
exit 0;
gives the following output Code:
ORIGINAL LINE: <font size="10" type="int" name="ABC" > PRIOR TO LINE SPLIT: size=10 type=int name=ABC AFTER LINE SPLIT INTO ARRAY size 10 type int name ABC AFTER CONVERSION TO HASH name = ABC size = 10 type = int |
|
| Bookmarks |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
Hybrid Mode
