Perl Forum

Hi Friends, I am trying to write a script to split file with the size as an argument. Based on the size, i am trying to read for Input File & Dump it to output File. But, read() returns the number of bytes actually being read (for ex : file split size as 200 bytes), while printing, output file size is greater(213 bytes) than actual...

Hi I have two files. One file contains all my interested uniprot id and second file contains uniprot ID with their corresponding family. My aim or I am trying to create new file. So from file1, I want compare all Id with file2's Id. If equal then they should print id with their family name or not equal then they should print their id with...

Hi All, I need to scrape the data from the URL "https://hms.portxcs.nl/oper/Public/PublicMovements.aspx". Here we give the dropdown box for "Time" should be "Next 7 Days" and "Port" should be "Vlissingen" Finally click the "Search" button. Web page shows some records about the given credentials. I want to scrape that datas. I used the...

Hi Friedns, I need to scrape the data from "https://portal.emsa.europa.eu/web/thetis/refusal-of-access". I checked this url with help of "LWP::UserAgent" and "WWW:Mechanize" module but i didn't get the result. Kindly provide me any solution for this. Regards, Ram.

Hi All, My aim is to redirect the XML Response into another file. But i am not able to redirect the XML response into response.xml file. I have written below script. use Data::Dumper; $Data::Dumper::Terse = 1;

Hello, I've compiled Perl and OpenSSL from sources under Solaris 10 as requested, but loading SSL module is still failed with error 'ld.so.1: perl: fatal: relocation error'. Got this one but don't understand well - http://perldoc.perl.org/perlsolaris.html#MAKE-PROBLEMS. Please help (desperately)! Here are the full errors:

Please tell me how do you do bitwise comparison of files from two directories. My current thinking is as: #!/usr/bin/perl -w $CMP="/usr/bin/cmp"; $dir0=$ARGV; $dir1=$ARGV;

So Far, I am using below code, with which I am not able to get latest file by latest time stamp or by modified time. use warnings; use strict; my $RepoPath = "C:\\input";

Hi, I am having a string. I want to convert the string into a xml file. $string=", Credit=, AccCategory=, ScProfile=, ComProfile=, Channel=, Market=, Vip=, Dealer=, Operator=, AddingProfile=, InvoiceCurrency=, AddDispatch=, AddFormat=, ChargeThreshold=22.0, CreditThreshold=12.0, Domain=CUS], EditProfile=, blTyCd=null, blAddr=null,...

how to extract the from,to,subject fields from smtp server...??

Hi All, I would like a script that can be run via cron job every 5-10 minutes. Actions are as follows: 1. check folder for new file (must have knowledge of previous directory or be empty at first) 2. if new file exists, 3. send email with new file as attachment to designated email 4. else, 5. end script I know the basics to to send...

Hi I have hashes with arrays to its keys like, %h1 = ('a'=>, 'b'=>, 'c'=> ); %h2 = ('a'=>, 'b'=>); then, how can i compare the 2 hashes(based on values. not keys) and get distinct values ?

How to send the email as a sms to the mobile from the out look express using a GSM modem...?

hi, i have created a text field in perl.Now i want to add a functionality to it.The data in text field are all hexadecimal numbers.I want to select(highlight) some of the number and then automatically a pop-up should appear which should contain their decimal value. can any one please explain me how to add this funtionality. thanks, amit

I want to compare 2 hashes of arrays in the following manner: Example: %hoa=(A1=>, A2=>, A3=>, ); %hoadip=(UP1=>, UP2=>, UP5=>,

Hi All, Can anybody tel me how to retrieve rows and columns from "webtable"(datagrid on wedpage)using perl-selenium script???? i m trying hard,googled a lot.but nothing helped me...:( plz reply if anybody has solution for this... Thank you...

$text->SetCursor( position ); this is used to move cursor at the given posoiton. Is there any way so that i can move the cursor by a given offset value?? thanks,

Hi, I'm currently registered on several boating Forums. Since I travel a lot, I wrote a program to copy certain thread on a daily basis and store them on my server for later reading. For some reason, one of those forum let me browse it no problem but when I used my script, I get a "denied access type page". I contacted the Webmaster and he...

This program works. upuse Win32::OLE; # Start Excel and make it visible $xlApp = Win32::OLE->new('Excel.Application'); $xlApp->{Visible} = 1; # Create a new workbook $xlBook = $xlApp->Workbooks->Add;

use Thread; use warnings; use Tk; my $x=10; my $mw=new MainWindow; $mw->Label(-text=>"honeywell")->place(-x=>$x,-y=>50); my $thr = new Thread \&sub1; sub sub1 { for($i=0;$i<20;$i++){ $x+=20;

Hello, I am looking for an Integrated Development Environment tool for HTML and Perl. Please suggest. Thanks, Teja

Hi, i am a beginner in Perl. All I want to do is a simple operation of saving the reminders of a continuous division of same number until the quotient becomes 1. I hope the code is logically correct but nothing is showing in the output. here is the code: #!usr/bin/perl #scrap.pl use warnings;

What is the maximun size of file we can attach in htm which will use TFMAIL to read the attachment

I m getting error in calling getTable() method. Line is:- my $table_object=my $ff->getTable("id:", "ctl00_ContentPlaceHolder1_gridAMID"); suggest way to resolve it.

I'm trying to figure this out but my $average is not calculating right. My $filesize is supposed to add into my $totalFileSize after every iteration. Then $totalFileSize is supposed to be divided by $count and that NUMBER is supposed to equal $average. Here is my code and the output I get. ...