Please help me polish the code

Hi, If you have time, I will be very appreciate you helping transform below code. I have just uploaded the whole files into the following link: https://docs.google.com/open?id=0B93SVRfpVVg3QzdsYUNkOU5SSHEtOTlqVm54WUdjdw can run with perl extractbib.pl sample.tex #!/usr/bin/env perl use strict

Re: Please help me recover my Perl script.

>> >> What does it say in a hex editor? >> > > > # hexdump Test.pl > 000 > * > 0001090 > 0001094 I would take a guess and say don't waste anymore time on it. Put your energies in rewriting the program -- Owen -- To unsubscribe, e

Re: Please help me recover my Perl script.

> > What does it say in a hex editor? > # hexdump Test.pl 000 * 0001090 0001094 Cheers, Parag

Re: Please help me recover my Perl script.

>> >> I think it's from UTF-16 to UTF-8. >> >> > > That doesn't seem to work. > > When I try to view my roasted file through 'less' command I get > following > output: > > # less Test.pl > *"Test.pl" may be a binary file. See it anyway? * > > Is there a way I can convert this binary file to its i

Re: Please help me recover my Perl script.

> > I think it's from UTF-16 to UTF-8. > > That doesn't seem to work. When I try to view my roasted file through 'less' command I get following output: # less Test.pl *"Test.pl" may be a binary file. See it anyway? * Is there a way I can convert this binary file to its initial readable state.

Re: Please help me recover my Perl script.

On Sunday 27 Dec 2009 12:19:48 Shlomi Fish wrote: > On Friday 25 Dec 2009 09:07:53 Parag Kalra wrote: > > Can anyone please let me know how to use 'iconv' command with Perl > > script. > > > > I mean what should be my input and output file format while using 'iconv' > > with a Perl script which wil

Re: Please help me recover my Perl script.

> I was coding my Perl script in Notepad++ editor and it was on verge of > > completion. > > > > All of a sudden my machine rebooted. And after that I found all my data > > lost. It is containing series of 'NUL' characters. > > > > However size of the P

Re: Please help me recover my Perl script.

> "Parag" == Parag Kalra writes: Parag> I was coding my Perl script in Notepad++ editor and it was on verge of Parag> completion. Parag> All of a sudden my machine rebooted. And after that I found all my data Parag> lost. It is containing series of 'NUL' characters. Welcome to Windows. Per

Re: Please help me recover my Perl script.

acters. > > However size of the Perl script is same as it was earlier. > > Please help me recover my Perl script. > > TIA > > Cheers, > Parag > > >

Please help me recover my Perl script.

Hello All, I was coding my Perl script in Notepad++ editor and it was on verge of completion. All of a sudden my machine rebooted. And after that I found all my data lost. It is containing series of 'NUL' characters. However size of the Perl script is same as it was earlier. Plea

答复: mkdir in the mounted partiti on£¬please help me£¬thanks

/dev/sdd1 1.7T 639G 1004G 39% /data6 /dev/sdf1 1.7T 1.1T 578G 65% /data8 -邮件原件- 发件人: John W. Krahn [mailto:jwkr...@shaw.ca] 发送时间: 2009年11月18日 14:12 收件人: Perl Beginners 主题: Re: mkdir in the mounted partition£¬please help me£¬thanks gaochong wrote: > #!/us

Re: mkdir in the mounted partition£¬please help me£¬thanks

gaochong wrote: #!/usr/bin/perl -w #Auther:gaochong use strict; my @list = (3 .. 9); my @FA=("FA0001".."FA2000"); sub mk_fa { my ($f) = @_; foreach my $p (@list) { mkdir "/data$p/NRU/$f",0755 or warn "mkdir /data$p/NRU/$f err:$!"; symlink

答复: 答复: mkdir in the mounted par tition，please help me，thanks

I did not receive err msg . -邮件原件- 发件人: Dermot [mailto:paik...@googlemail.com] 发送时间: 2009年11月17日 20:16 收件人: beginners@perl.org 主题: Re: 答复: mkdir in the mounted partition，please help me，thanks 2009/11/17 gaochong : > but I have uses perl -w。 > any other problem ? Did you recei

Re: 答复: mkdir in the mounted partition，please help me，thanks

2009/11/17 gaochong : > but I have uses perl -w。 > any other problem ? Did you receive and error message? Dp. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

答复: mkdir in the mounted partiti on，please help me，thanks

but I have uses perl -w。 any other problem ? -邮件原件- 发件人: Dermot [mailto:paik...@googlemail.com] 发送时间: 2009年11月17日 19:53 收件人: beginners@perl.org 主题: Re: mkdir in the mounted partition，please help me，thanks 2009/11/17 gaochong : > #!/usr/bin/perl -w > > > > #Auther:gaoch

Re: mkdir in the mounted partition，please help me ，thanks

2009/11/17 gaochong : > #!/usr/bin/perl -w > > > > #Auther:gaochong > > > > use strict; > > > > my @list = (3 .. 9); > > my @FA=("FA0001".."FA2000"); > > sub mk_fa { > >        my ($f) = @_; > >        foreach my $p (@list) { > >                mkdir "/data$p/NRU/$f",0755 or warn "mkdir /da

Re: Please Help Me!

On Sat, Jul 25, 2009 at 05:48, Shawn H. Corey wrote: > Umar Draz wrote: >> >> As you can see its not works because there is no space after the word is >> So would you please help me how to solve this. >> > > Change the word boundary, \b, to a not-digit, \D. snip

Re: Please Help Me!

Umar Draz wrote: As you can see its not works because there is no space after the word is So would you please help me how to solve this. Change the word boundary, \b, to a not-digit, \D. -- Just my 0.0002 million dollars worth, Shawn Programming is as much about organization and

Re: Please Help me

Mobile No. is " . $1 . "\n";       > } > As you can see its not works because there is no space after the word is > So would you please help me what kind of change is required in above > regular expression. #!/usr/bin/perl use warnings; use strict; my $str = "&quo

Please Help Me!

  } Here is the output of while Your Mobile No. is 0300-4459899 Your Mobile No. is 0356-4094030 Your Mobile No. is 03226789871 its Work almost fine but one mobile no. is missed and that is  My Office Cell is0300-5009228 As you can see its not works because there is no space after the word i

Please Help me

re is the output of while Your Mobile No. is 0300-4459899Your Mobile No. is 0356-4094030Your Mobile No. is 03226789871 its Work fine but one mobile no. is missed and that is  My Office Cell is0300-5009228 As you can see its not works because there is no space after the word is So would you please

Re: Please help me w/ my sub

Chas. Owens wrote: On Tue, Oct 14, 2008 at 02:15, Richard Lee <[EMAIL PROTECTED]> wrote: below sub works fine except the line where key is default. Instead of printing out PCMU only once, it's printing it out 40 times randomly.. Trying to figure out what I did wrong. snip I found your

Re: Please help me w/ my sub

Chas. Owens wrote: On Tue, Oct 14, 2008 at 02:15, Richard Lee <[EMAIL PROTECTED]> wrote: below sub works fine except the line where key is default. Instead of printing out PCMU only once, it's printing it out 40 times randomly.. Trying to figure out what I did wrong. snip I found your

Re: Please help me w/ my sub

On Tue, Oct 14, 2008 at 02:15, Richard Lee <[EMAIL PROTECTED]> wrote: > below sub works fine except the line where key is default. > Instead of printing out PCMU only once, it's printing it out 40 times > randomly.. > Trying to figure out what I did wrong. snip I found your code to be very odd. Y

Re: Please help me w/ my sub

John, I think this is now fixed. Still looking to make sure its covering all basis.. sub codec_list { #my @codec_d = qw/0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 # 28 29 30 31 32 33 34 35--71 72--76 77--95 96--127/; my @codec_d = qw

Re: Please help me w/ my sub

John W. Krahn wrote: Richard Lee wrote: below sub works fine except the line where key is default. Instead of printing out PCMU only once, it's printing it out 40 times randomly.. Trying to figure out what I did wrong. Please leave me a feedback. thank you. 156 time(s) Codec(s) : unassign

Re: Please help me w/ my sub

Richard Lee wrote: below sub works fine except the line where key is default. Instead of printing out PCMU only once, it's printing it out 40 times randomly.. Trying to figure out what I did wrong. Please leave me a feedback. thank you. 156 time(s) Codec(s) : unassigned_38 185 time(s) Cod

Please help me w/ my sub

below sub works fine except the line where key is default. Instead of printing out PCMU only once, it's printing it out 40 times randomly.. Trying to figure out what I did wrong. Please leave me a feedback. thank you. 156 time(s) Codec(s) : unassigned_38 185 time(s) Codec(s) : G729

Re: Please help me to get CONVERTER script which XML file convert to text

On Thu, 13 Oct 2005 [EMAIL PROTECTED] wrote: > I need to perl scriptcode which is convert XML file to txt(TEXT). > Please any body help me how can i find or write this converter. Search Google for Perl's XML modules. XML::Simple might be a good one to start with. Look it up, read the documenta

Re: Please help me to get CONVERTER script which XML file convert to text

On Oct 13, 2005, at 8:35, [EMAIL PROTECTED] wrote: I need to perl scriptcode which is convert XML file to txt(TEXT). Please any body help me how can i find or write this converter. I try explain. This program must work on the OS Unix. So, this programm must convert XML file to text file. I

Please help me to get CONVERTER script which XML file convert to text

that xml. But i am a beginner. Please help me. Thank you in advance. Best regards,

PLEASE HELP ME TO SLOVE THIS PROBLEM

Hi Sir, I am facing problem in stripping attachements in my outlook mailbox. The main objective of my project is to open the mails and the attachments and print both to my local printer.And moreover I searched all sites but no site have a solution. I am almost helpless now from past 1 month. I a

RE: please help me to check why this perl script does not work!

> -Original Message- > From: Fei Li [mailto:[EMAIL PROTECTED] > Sent: Tuesday, May 31, 2005 6:59 PM > To: Chris Heiland > Cc: beginners@perl.org > Subject: Re: please help me to check why this perl script > does not work! > > Hi, Chris, > > Thank

Re: please help me to check why this perl script does not work!

wrote: > > > > -Original Message- > > From: Bob Showalter [mailto:[EMAIL PROTECTED] > > Sent: Sunday, May 29, 2005 5:41 AM > > To: Fei Li; beginners@perl.org > > Subject: Re: please help me to check why this perl script > > does not work! > >

RE: please help me to check why this perl script does not work!

> -Original Message- > From: Bob Showalter [mailto:[EMAIL PROTECTED] > Sent: Sunday, May 29, 2005 5:41 AM > To: Fei Li; beginners@perl.org > Subject: Re: please help me to check why this perl script > does not work! > > Fei Li wrote: > > I wish to sub

Re: please help me to check why this perl script does not work!

Fei Li wrote: I wish to submit some protein sequences via LWP:UserAgent to the http://www.cbs.dtu.dk/services/ChloroP/ The error message is given as follows: Webface ErrorWebface Error: Read: Field not declared; 'seqpaste' [snip] my $response = $browser->post('http://www.cbs.dtu

please help me to check why this perl script does not work!

I wish to submit some protein sequences via LWP:UserAgent to the http://www.cbs.dtu.dk/services/ChloroP/ The error message is given as follows: Webface ErrorWebface Error: Read: Field not declared; 'seqpaste' * #! /usr/bin/perl -w use strict; use HTTP::Reque

Re: SFTP problem...Please help me !.....

no..there is more than 100 file in my directory...actually it's a flow files... --- "Ing. Branislav Gerzo" <[EMAIL PROTECTED]> wrote: > roime puniran [rp], on Tuesday, December 14, 2004 at > 01:27 (-0800 > (PST)) typed the following: > > rp> transfered and remove successfull ..Below is my > rp>

Re: SFTP problem...Please help me !.....

Thanks for ur opinion...But, when i tried only one files, it's also cannot executesi am still struggled on this matter... --- "Ing. Branislav Gerzo" <[EMAIL PROTECTED]> wrote: > roime puniran [rp], on Tuesday, December 14, 2004 at > 01:48 (-0800 > (PST)) contributed this to our collective wis

Re: SFTP problem...Please help me !.....

Thanks for ur opinion...But, when i tried only one files, it's also cannot executesi am still struggled on this matter... --- "Ing. Branislav Gerzo" <[EMAIL PROTECTED]> wrote: > roime puniran [rp], on Tuesday, December 14, 2004 at > 01:48 (-0800 > (PST)) contributed this to our collective wis

Re: SFTP problem...Please help me !.....

roime puniran [rp], on Tuesday, December 14, 2004 at 01:27 (-0800 (PST)) typed the following: rp> transfered and remove successfull ..Below is my rp> script... it works, if you have in your source directory only 1 file, for example data.dat ? -- ...m8s, cu l8r, Brano. [He's mostly dead Jim.

SFTP problem...Please help me !.....

I need to transfer some 100 files using SFTP into my remote directory in to the other machine..And i have develop a script that could done my task !...This script will read all the content of files in the local directory then transfered it one-by-one. After transferd one file, these file will be re

Re: Please help me! Thanks.

On Dec 17, 2003, at 9:36 AM, Randal L. Schwartz wrote: "Drieux" == Drieux <[EMAIL PROTECTED]> writes: Drieux> neat solution, minor problem is that Math::Fraction Drieux> is not a 'default' module yet. And if that's a problem for you, you aren't using Perl properly yet. could well be. help clarify

Re: Please help me! Thanks.

> "Drieux" == Drieux <[EMAIL PROTECTED]> writes: Drieux> neat solution, minor problem is that Math::Fraction Drieux> is not a 'default' module yet. And if that's a problem for you, you aren't using Perl properly yet. -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777

Re: Please help me! Thanks.

R. Joseph Newton wrote: > > Rob Dixon wrote: > > > > It's also worth pointing out here that rational values are almost always what is > > wanted in this sort of situation. > > > > The (very nice indeed) Math::Fraction module lets you do just this. The only > > changes to the code are to initialise

Re: Please help me! Thanks.

Rob Dixon wrote: > Hacksaw wrote: > > > > > now, a stupid solution is: > > > > > > for (my $value = -1000; $value <= 1000; $value += 100) { > > > print $value/1000, "\n"; > > > } > > > > > > hehe, > > > > > > > Sadly, it's not as stupid as you think. Unless I misunderstand things, what > >

Re: Please help me! Thanks.

On Dec 16, 2003, at 7:16 AM, Rob Dixon wrote: [..] Rob use strict; use warnings; use Math::Fraction; for (my $value = frac -1; $value <= 1; $value += 0.1) { print $value->decimal, "\n"; } [..] neat solution, minor problem is that Math::Fraction is not a 'default' module yet.

Re: Please help me! Thanks.

Hacksaw wrote: > > > now, a stupid solution is: > > > > for (my $value = -1000; $value <= 1000; $value += 100) { > > print $value/1000, "\n"; > > } > > > > hehe, > > > > Sadly, it's not as stupid as you think. Unless I misunderstand things, what > you are seeing here is a problem called IEE

Re: Please help me! Thanks.

Paul Johnson wrote: > On Tue, Dec 16, 2003 at 02:25:42PM +0800, pagoda wrote: > > > now, a stupid solution is: > > > > for (my $value = -1000; $value <= 1000; $value += 100) { > > print $value/1000, "\n"; > > } > > > > hehe, > > Not so stupid, really. If you can keep most of your maths co

Re: Please help me! Thanks.

On Tue, 16 Dec 2003, pagoda wrote: > > for (my $value = -1; $value <= 1; $value += 0.1) { > print "$value\n"; > } Hi, I don't know if it might be helpful, but the following code works better: for ($value = -1; $value <= 1; $value += 0.1) { printf ("%.1f\n",$value); } This p

RE: Please help me! Thanks.

pagoda <[EMAIL PROTECTED]> wrote: : Take a look at the first question in perlfaq4: Why am I getting long decimals (eg, 19.94999) instead of the numbers I should be getting (eg, 19.95)? HTH, Charles K. Clarkson -- Head Bottle Washer, Clarkson Energy Homes, Inc. Mobile Home Specialists

Re: Please help me! Thanks.

On Tue, Dec 16, 2003 at 02:25:42PM +0800, pagoda wrote: > now, a stupid solution is: > > for (my $value = -1000; $value <= 1000; $value += 100) { > print $value/1000, "\n"; > } > > hehe, Not so stupid, really. If you can keep most of your maths confined to integers you will have fewer

Re: Please help me! Thanks.

> now, a stupid solution is: > > for (my $value = -1000; $value <= 1000; $value += 100) { > print $value/1000, "\n"; > } > > hehe, > Sadly, it's not as stupid as you think. Unless I misunderstand things, what you are seeing here is a problem called IEEE 754 floating point. I'm sure th

Re: Please help me! Thanks.

now, a stupid solution is: for (my $value = -1000; $value <= 1000; $value += 100) { print $value/1000, "\n"; } hehe, - Original Message - From: "pagoda" <[EMAIL PROTECTED]> To: "begin begin" <[EMAIL PROTECTED]> Sent: Tuesday, Dece

Please help me! Thanks.

for (my $value = -1; $value <= 1; $value += 0.1) { print "$value\n"; } The result is as following: -1 -0.9 -0.8 -0.7 -0.6 -0.5 -0.4 -0.3 -0.2 -0.1 -1.38777878078145e-16 0.0999 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 But what I wanted is: -1 -0.9 -0.8 -0.7 -0.6 -0.5 -0.4 -0.3 -0.2

Please help me

Dear Friends, I need to trnaslate thid code to PHP. Can any one help me? Tnx use constant MD5_CRYPT_MAGIC_STRING => '$1$'; use constant I_TO_A64 => './0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; sub _to_yahoo_base64 { pos($_[0]) = 0; my $res = join '', map( pack('u',$_)=~

Re: Please...Help me. How to arrange my widget with pack

On Tue, 17 Sep 2002 22:53:12 +0200, [EMAIL PROTECTED] (Prabu Subroto) wrote: > Dear my friends, > >Any body would be so kind to teach me how to put label and input of a >form in one row. >I am meaning like this : >" >Name of person : [input column with entry widget] >" Try this one: ##

RE: Please...Help me. How to arrange my widget with pack

;put(1,1,$txtEntry1); $table->put(2,0,"Entry 2"); $table->put(2,1,$txtEntry2); MainLoop; #--- 8< ---# hth toby > -Original Message- > From: Prabu Subroto [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, Se

Please...Help me. How to arrange my widget with pack

Dear my friends, Any body would be so kind to teach me how to put label and input of a form in one row. I am meaning like this : " Name of person : [input column with entry widget] " Here I rewrote the code under below. Thank you very much in advance. #!/usr/bin/perl use Tk; my $MainWindow =

RE: hello!! please help me!!

> -Original Message- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, December 12, 2001 3:58 AM > To: [EMAIL PROTECTED] > Subject: hello!! please help me!! > > > hello!! > I'm a begginer of perl. so i have many problomes.

hello!! please help me!!

hello!! I'm a begginer of perl. so i have many problomes.(my english is poor.I'm sorry) please help me!!! my sever's config - window 2000 server and i installed activeperl 5.6.1 (i got it www.activeperl.com) - I installed oracle client8.0 (the remote db server consis

RE: Please help me!

---Original Message- From: Euan [mailto:[EMAIL PROTECTED]] Sent: 14 June 2001 15:54 To: [EMAIL PROTECTED] Subject: Please help me! I have been trying to write a script . a mobile number is entered into a form which is sent to the script, The script removes the leading 0 then adds a +44 in fro

Please help me!

I have been trying to write a script . a mobile number is entered into a form which is sent to the script, The script removes the leading 0 then adds a +44 in front and tacks a @domain.com onto the end. Then it saves this new number/email to a txt file and automatically sends out an e-mail to