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.

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 will help me recover my Perl script. > I think it's from UTF-16

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.

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 will help me recover my Perl script. Hey BTW Merry Christmas to all. :) Cheers, Parag On Fri, Dec 25, 2009 at 11:05 AM

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 That will cause "0300-1234567" to f

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 comm

Re: Please Help me

Umar Draz wrote: > I want to print all mobile from above string. Mobile code always start > from 03. and not more than 4 digits. > So here I have use this regular expression. > while($str =~ /(\b(0([3](\d\d)))+[-]+\d{7}|\ b(0([3](\d\d)))+\d{7})/g){   >      print "Your Mobile No. is " . $1 . "\n

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

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

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

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, December 16, 2003 1:54 PM Subject: Please help me!

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

have a look at the Tk::Table module. i have provided a trivial example below. #--- 8< ---# use strict; use warnings; use Tk; use Tk::Table; my $mw; my $table; my $txtEntry1; my $txtEntry2; $mw = new MainWindow(); $mw->title("Table Layout

RE: Please help me!

Suggestions. Don't use a variable called $newvar, call it $form_input or $phone_number or somthing. Make it descriptive of the value it holds, either the source of the data or the expected content. It'll make life easier in the long run. Use a module to inferface with Sendmail. Let it do the har