Search results for query: *

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...

BTW writing cell by cell consumes too much memory, take ages and pc dies... my $i=1; my $c =1; foreach my $value (@INFO) { $Sheet_Stats{$tab}->Cells($i,$c)->{Value} = $value; $c++; } dmazzini GSM/UMTS System and Telecomm Consultant

Hi I have an array with a variable number of multi lines records. Array contains data coming from different txt files. I dont care the file contents, I just need to copy and paste it into Excel worksheets All other script routines have been developed using Win32::Ole module. The question is...

Just putting a conditional when you print to the file should work. Not tested.. print OUT $wkn," ",$isin," ",$date," ",$time," ",$price," ",$units," ",$flag, "\n" if ($date =~ /$DT/); dmazzini GSM/UMTS System and Telecomm Consultant

Amazing job Miller, nice, clean and brilliant! I have thousands COCOs in the XML file, so first of all I am extracting COCO to process from the big file using the distName="PLMN-PLMN/RNC-$rncid/COCO-$coco_id".(This part I just did, however I might start playing with your XML::Twig to do it more...

Hi Miller, thanks for your prompt answer.. i have already worked with xml::twig in the past. but since i just want to modify few parameters in the xml file based on one specific parameter 'AAL2UPVCI' value. I though that I don't need to use any xml parser since more 'programming is involved'...