Perl Forum

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";

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;

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:

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;

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

I need to read a file on Unix server that has only one line with a character on it. My script needs to read in the character. If the character is 1, the script stops and exit. Otherwise, the script runs. Befoere the scripts ends, write the "0" to replace "1". I wrote some code like below. but it does not work and get error of "Reference to...

Hi, I'm learing perl and I've just come up with the following statement from a some script: $content = $dbh->quote($content); I've read through Blair Ireland's tutorial on perl MySQL functions for the meaning of this quote string function but I'm still not getting it. Would someone please explain to me in simple language, exactly...

Hi, My company is starting a new subscription service and I'm in charge of the data collection. Trouble is, since these will be SMS messages, the have to be within the limit of 160 characters. So, I can do it manually(get the message and run it through our company's web based SMS management system character-number checker) which is handy...

Hi, I need to transfer files from Linux to windows system, without reading the content, directly to push to the destination. I am new to perl.Kindly advice me.

I'm using the printf function to display some textual information. It is possible that the string may contain different symbols such as $#%^&* somewhere within the text. I know that to handle the % that I need to use a %% to make the string evaluate correctly. for example: printf "strin%%g"; will display as strin%g My question is...

Hi, I tried to run a simple perl script in windows and linux. sub ispallindrome($); print ("enter a string"); chomp (my $string = <STDIN>);

I have a very simple question. If I am calling a subroutine and passing in StringA by value.. Then I declare a new variable in the subroutine ( we can call it StringB) and want to return StringB back. How will StringB return? Will it be byval or byref? Does perl have a default way of assigning this?

gi|282558029|gene000415 lga:LGAS_0495 1e-87 100.... gi|282558029|gene000415 lga:LGAS_0495 1e-87 189... gi|282558029|gene000415 lmo:lmo0426 5e-06 29.... How to compare lines for similar starting string. I want only first line out of many such lines with similar starting string. How to do that?

I am new to perl but after spending late nights for some days , i was able to generate code for database backup. the code will ask you enter servername , enter database name if i enter it will take backup suppose my code is in backup.pl now the thing is i need to get database backup by entering like this perl backup.pl -i servername -d...

Using the Simple perl database in Bytes, I have defined my database as follows: %fields = ( ID => , UserName => , Password => , Level => , FullName => , Email => , Location => ,

This has been solved I am passing a variable that needs to be evaluated with a print command. An example of my variable may look like this "variabl%e" I understand that the best way to get around the percent problem would be to simply add another percent sign to the variable and then it would evaulate out to one percent. Is there an...

Hi,I want close the tags in hierarchical way. (E.g)This is my input. <P_Normal><list-bull></P_Normal> <P_list-bull(1)>Use Microsoft Windows accessibility </P_list-bull(1)> <P_list-simple(2)> Magnify the display </P_list-simple(2)> <P_list-simple(2)> Change the size of text and icons </P_list-simple(2)> <P_list-bull(1)>Adjust background...

Hello. I have a file named "test.fasta" which contains three patterns and looks like >1elwA AAAAAASSSSSSSSSSSSSSDDDDDDDDDDDFFFFFFFFFF >1flwA GGGGGGGGGGHHHHHHHHHHHHIIIIIIIIIIIIIIJJJJJJJJJJ >1ghwA KKKKKKKKKKLLLLLLLLLLMMMMMMMMMMNNNNNNNNNNOOOOO

Hi Guys, I have some rows in excel in which one of the cell is green in color while rest of rows are either white or orange. I have want to extract row which has the cell with bgcolor green using PERL code. Can somebody suggest me on how to do this. Any help is appreciated! Chintan

I have files in ToTransfer folder on remote windows server. I need to move them to ToTransfre\Transferred folder. I am using sftp. The code below did not give me compile error but it did not work either. Can anyone please let know how to get it working? unless(move("ToTransfer\\$filelist->{filename}", "ToTransfer\\Transferred")) ...

Hi: I'm stuck! I've tried a thousand things from forum suggestions...I need to parse the unit from a value and test that it exists based on known units (its not for school, its Jan 1..) #/usr/bin/perl my @unit = qw(mV V mA uA A K m uV nA nV pA pV); while( defined($line = <LOGFILE>) ) { if( $line =~ /d+(\s*\w+)/ )

I am new to programing and am trying to learn. I am trying to use perl to merge to list of data. for example: list 1: aaaa bbbb cccc dddd list 2: aaaa bbbb cccc