Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Thanks !! (XML + Excel) with (win32::OLE and XML::Simple)

by davidrw (Prior)
on Dec 06, 2008 at 15:46 UTC ( [id://728563]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $a = "x";            
    while ($a ne "y")
    ...
        ...
        chop $a;
    }
    
  2. or download this
    unless ($files[0]){
        print "\nSorry, no xml file(s) in script folder\n\nScript Terminat
    +ed...\n\n";
    ...
        else{
        ...  # a gazillion rows
    }
    
  3. or download this
    unless( scalar @files ){
      warn "no files";
      exit;
    }
    ...
    
  4. or download this
    parse_file($_) for @files;
    
  5. or download this
    foreach my $i ( 0 .. $count ){
    
    <li> to be more explicit (since you want an array), do <c>unless( ref(
    +$doc->{$sub1}) eq 'ARRAY' ){
    
  6. or download this
    foreach my $sub1 ( sort keys %{ $doc } ){
    
    ...
    
                    for my $sub3 ( sort keys %$sub3Hash ){
    
  7. or download this
    sub __add_non_array {
      my ($worksheet, $rowCount, $colCount, $sub) = @_;
    ...
            } $rowCount=4; $colCount+=3;
        }
    }
    
  8. or download this
      foreach my $sub2 ( sort keys %$sub2Hash ){
        my $aoh2 = $sub2Hash->{$sub2};
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://728563]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (4)
As of 2024-03-29 10:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found