Re: Perl function for password encryption and decryption

2011-05-06 Thread Shlomi Fish
On Saturday 07 May 2011 04:06:47 Brandon McCaig wrote: > On Fri, May 6, 2011 at 8:50 AM, Jeff Pang wrote: > > No. there is no such thing called decryption if you want to protect > > your passwords strictly. > > Agreed. > > > Generally we crypt the user's password with md5 or similar and > > stor

Re: cache and the interpreter

2011-05-06 Thread Uri Guttman
> "MM" == Mike McClain writes: >> INIT { MM> This is the solution I needed. MM> Absolutely a big help. MM> Not only did you supply an explanation but a solution. MM> Best answer possible. not to rain on your parade but from your point of view INIT and BEGIN are the same thing. th

Re: cache and the interpreter

2011-05-06 Thread Mike McClain
On Fri, May 06, 2011 at 08:16:14AM +0100, Rob Dixon wrote: > On 06/05/2011 01:21, Mike McClain wrote: > > > > Here's a simple example that illustrates the problem I've run into: > As Uri says, initialising variables at the point of declaration is done > at run time. This is from 'Programming Perl'

Re: Perl function for password encryption and decryption

2011-05-06 Thread Brandon McCaig
On Fri, May 6, 2011 at 8:50 AM, Jeff Pang wrote: > No. there is no such thing called decryption if you want to protect > your passwords strictly. Agreed. > Generally we crypt the user's password with md5 or similar and > store them to a database. When user input their username and > password fro

Re: new here

2011-05-06 Thread Sandip Bhattacharya
On Fri, May 6, 2011 at 11:43 PM, wrote: > Can someone tell me, where is the fault, please? And for the case, there are > 80 data´s in the line, is there a shorter style to find & change them? > You showed a slash between the numbers but mentioned earlier that the numbers can be in any format in

Re: cache and the interpreter

2011-05-06 Thread Dr.Ruud
On 2011-05-06 02:21, Mike McClain wrote: $fibs[$#fibs+1] = 2; push @fibs, 2; -- Ruud -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/

Re: new here

2011-05-06 Thread Uri Guttman
> "TL" == Thomas Lingmann writes: TL> Hi, TL> try something like TL> my @str = ( TL> "test [0.4\\9.0]" TL> ); why the array for the data? if you had multiple tests, i can see that but you only show one of them TL> foreach (@str) { even in simple examples it is better to u

Re: new here

2011-05-06 Thread Thomas Lingmann
Hi, try something like my @str = ( "test [0.4\\9.0]" ); foreach (@str) { if ( ($leaf1, $leaf2) = $_ =~ m{ (\d+\.\d)\\(\d+\.\d) }x ) { print $leaf1, "\n"; print $leaf2, "\n"; } } -- Thomas * wolken.f...@web.de [06.05.2011 20:16]: > Hi all, > > I´m new here and

Re: new here

2011-05-06 Thread Shawn H Corey
On 11-05-06 02:13 PM, wolken.f...@web.de wrote: if ($in =~ /(-?\d+\.\d)\(-?\d+\.\d)/) Try: if( $in =~ /(\d+\.\d+)\\(\d+\.\d+)/ ) You need two backslashes to match one. -- Just my 0.0002 million dollars worth, Shawn Confusion is the first step of understanding. Programming is as

new here

2011-05-06 Thread wolken . flug
Hi all, I´m new here and my English is not the best. However, I would like to get some help for my perl-problems. I want to write a script which is finding data´s like "0.1" or "46.7" in a string and declare them as variables, which are to be changed and wrote back. The string is looking like:

Re: Rounding Date/Time

2011-05-06 Thread Peter Scott
On Mon, 02 May 2011 11:46:42 -0500, Matt wrote: > Have a date: > > 2011-05-02-16:40:51 [...] > > I need to round it to nearest 5 minute point. > > 2011-05-02-16:40:51 If you care about things like daylight savings time adjustments, calendar changes, or leap seconds, the answer requires consid

Re: Perl function for password encryption and decryption

2011-05-06 Thread Jeff Pang
2011/5/6 abhay vyas : > Is there any  perl function which can do the multiplication of values of two > columns of Excel and then bring about the sum of final products. > May this module help you? http://search.cpan.org/~jmcnamara/Spreadsheet-ParseExcel-0.59/lib/Spreadsheet/ParseExcel.pm -- Jeff

Re: Perl function for password encryption and decryption

2011-05-06 Thread abhay vyas
Is there any perl function which can do the multiplication of values of two columns of Excel and then bring about the sum of final products. regds, abhay. On Fri, May 6, 2011 at 2:50 PM, Jeff Pang wrote: > 2011/5/6 Amresh Sajjanshetty : > > Hi, > > > > Could you please tell me best Perl funct

Re: Perl function for password encryption and decryption

2011-05-06 Thread Jeff Pang
2011/5/6 Amresh Sajjanshetty : > Hi, > > Could you please tell me best Perl functions/modules for password encryption > and decryption? > No. there is no such thing called decryption if you want to protect your passwords strictly. Generally we crypt the user's password with md5 or similar and stor

Perl function for password encryption and decryption

2011-05-06 Thread Amresh Sajjanshetty
Hi, Could you please tell me best Perl functions/modules for password encryption and decryption? Thanks and Regards, Amresh

Re: Need help in fetching file from a folder in server and display.

2011-05-06 Thread Jeff Pang
2011/5/6 meaculpa : > Hi, > > I am developing an automation tool, where users can upload the script > to webserver and they can select any of the uploaded script and > execute the script. > I hope this is not a creacker behavior. But you could upload the files with Net::FTP. If you don't have the

Need help in fetching file from a folder in server and display.

2011-05-06 Thread meaculpa
Hi, I am developing an automation tool, where users can upload the script to webserver and they can select any of the uploaded script and execute the script. I was able to upload the scripts to webserver. But i am not getting any idea to display the scripts from server. Like my requirement is : u

Re: cache and the interpreter

2011-05-06 Thread Rob Dixon
On 06/05/2011 01:21, Mike McClain wrote: > > Here's a simple example that illustrates the problem I've run into: > > perl -le' > show(); > { my @fibs = (0,1,1); my ($x, $y) = (1,2); > sub show > { print "x=$x\ty=$y\t\$#fibs=$#fibs\tfibs=@fibs\tscalar \@fibs = ", > scalar