Recent content by dmazzini

Solution: In case somebody need it: foreach my $tag($tagList->get_nodelist) { $tagHref = $tag->XML::LibXML::Element::getAttribute('href'); $tagUri = $tag->XML::LibXML::Element::getAttribute('uri'); $tagId =...

I forgot to add this part to the original post, any help would be very appreciated~ use XML::LibXML; dmazzini GSM/UMTS System and Telecomm Consultant

Hi guys Not very active programming these days, but I have a question about one script using XML::Lib XML Looks like this, I need to get type, uri and href from "target" using XML::Lib. <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <tags size="3" uri="XXXXXX"> <tag href="ZZZZZZZZ"...

Not need programming. Create same form but using control "WEB REPORT", this control enables following functions: Export to excel, Export to Word, Export to PDF, the only limitation is that you have to create this extra control (form). It works fine, you will see the ribbon to export after you...

Check this link, they use Win32::OLE to manipulate the doc file. http://snipplr.com/view/16746/ dmazzini GSM/UMTS System and Telecomm Consultant

You mentioned that "The problem is, some devices take different commands to accomplish the same task"..First, I would try to send a cmd to the router that will show me the "router type" and then based on the output send the right commands to it. e.g show version. or something like that...

Hi, good to know you figured it out. In the past I worked with winzip using command line and it worked very well. I amposting this as a reference. Below the Winzip command line parameters. What command line parameters does WinZip support? Below is some information about the undocumented...

Have a look to this tutorial: http://www.bin-co.com/perl/perl_tk_tutorial/perl_tk_tutorial.pdf. dmazzini GSM/UMTS System and Telecomm Consultant

Win32::OLE can do that: http://www.tek-tips.com/faqs.cfm?fid=6715 dmazzini GSM/UMTS System and Telecomm Consultant

Could you put example of your data? As well you could print values of $1 and $2 before build the hash, just to make sure your regex match the lines... $current =~ /^(($c1\t$c2\t$c3)\t$c4\t$c5)/; print "1->$1, 2->$2\n"; $myHash{$2} = $1; dmazzini GSM/UMTS System and Telecomm Consultant

You might have some Unix chars that you have to take out: To confirm it: #copy this to one file and called it ripout.pl # run it: # ripout.pl file.txt # open it again with VIM, let me know results $file =$ARGV[0]; $/=undef; open FH, "<$file"; $perlcode=<FH>; close FH; $perlcode=~ s/\r//g...

From CPAN # How to expect on multiple spawned commands foreach my $cmd (@list_of_commands) { push @commands, Expect->spawn($cmd); } expect($timeout, '-i', \@commands, [ qr"pattern", # find this pattern in output of all commands sub {...

From CPAN # How to expect on multiple spawned commands foreach my $cmd (@list_of_commands) { push @commands, Expect->spawn($cmd); } expect($timeout, '-i', \@commands, [ qr"pattern", # find this pattern in output of all commands sub {...

I did something similar in the past and it worked fine.. let's say you have all your servers (hostnames) in one array: use Expect; $PASSWD = "PASSWORD"; $PROMPT1="OLD PASSWORD:"; $PROMPT2="NEW PASSWORD:"; $PROMPT3="VERIFICATION:"; foreach (@ALLSERVERS) { accesing_ne(); sleep...

Hi After whole day working on this I found the solution: my $CLIP = Win32::Clipboard(); $CLIP->Set($stats); # stats contains whole file contents print "Clipboard contains: ", $CLIP->Get(), "\n"; my $paste_range = $Sheet_Stats{$tab}->Range('A1'); $paste_range->PasteSpecial(); BTW...