Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Need help in while entering password

by AnomalousMonk (Abbot)
on Aug 18, 2013 at 19:21 UTC ( #1049935=note: print w/ replies, xml ) Need Help??


in reply to Need help in while entering password

anandooty:
Happy-the-monk has asked you to show us the code you have so far, but I would be far happier with a small, standalone, runnable code example that demonstrates the problem you are asking about. The effort of creating such an example may, in and of itself, lead to useful insight about the root cause of the problem! Please see How do I post a question effectively?.


Comment on Re: Need help in while entering password
Re^2: Need help in while entering password
by anandooty (Initiate) on Aug 19, 2013 at 10:15 UTC

    Hi, Here is my code. Here I have hard coded my user name and password but password prompts. For $username1 = $password1, and $username2 = $password2. Here only $username2 = $password2 works. For $username1 = $password1 contains @ and it takes only the character before @ "Case" and it doesn't take entire password. I need you help to overcome this issue. Regards, Anand Mathan.

    use strict; use warnings; my $username1 = "anand"; my $username2 = "girish"; my $password1 = "Case@123"; my $password2 = "Seat123#"; my $path = ("\"c:\\Program Files\\SecureFX\\sfxcl\""); my $server = "gaddwuat02"; @trans_file = ("/Q"." "."c:\\eqsys.txt"." "."sftp://$username:"."$pas +sword"."\@"."$server"); print "@trans_file\n"; my @trans = system("$path @trans_file");
      As the others said, you can't put @ or $ into dobule quotes. Just change it to my $password1 = 'Case@123';

        Thanks for reply. I have tried with single quote but it didn't help. One more thing I am running this script in windows environment'

      Here is my code.

      The problem is that your code does not compile under strictures (the  use strict; statement; see strict). If  use strict; is left out and the code is run under warnings alone (the  use warnings; statement), Perl produces a bunch of warnings about uninitialized values and possible typos, warnings you should ponder well. Also take a look at the rules for interpolation discussed in the Quote and Quote-like Operators section of perlop; a careful Reading of this section of The Fine Manual would repay your effort. (Same as  perldoc perlop from the command line.)

      Here is an example of double-quote interpolation and single-quote non-interpolation. (These examples have been given before by others.) An example is also given of entering a string from the command line at a prompt. Note that once successfully entered, 'interpolating' characters do not interpolate further: Perl does not do multi-level or nested interpolation. Perhaps you can build on something like this example to demonstrate the problem(s) you are facing. (Note: I use  qq{double quotes} rather than  "double quotes" on my Windoze command line so that the code will not be cluttered by irruptions of backslashes.)

      >perl -wMstrict -le "my $def = 'hi there'; my @jkl = qw(foo bar); ;; my $str1 = qq{abc$def}; my $str2 = qq{ghi@jkl}; ;; print qq{str1: :$str1:}; print qq{str2: :$str2:}; ;; my $str3 = 'pqr$def'; my $str4 = 'xyz@jkl'; ;; print qq{str3: :$str3:}; print qq{str4: :$str4:}; ;; ;; print 'enter password: '; my $pw = <STDIN>; chomp $pw; ;; print qq{pw: :$pw:} " str1: :abchi there: str2: :ghifoo bar: str3: :pqr$def: str4: :xyz@jkl: enter password: open@sez$me pw: :open@sez$me:
        Thanks you all for your response. Actually the issue is with the tool I am using.. It picks the server where it found the @. It consider as a server after @. /Q c:\eqsys.txt sftp://v556837:Case@123@server1 In above case it picks 123 as hostname instead of server1. I don't have any issues if password not used special character like @, $, % in between. Regards, Anand Mathan.

      BTW in Perl, when referring to a file on the system to read, write, execute, etc, you can use the normal Unix like path separator even in Windows. Another trick, by using 'single' quotes to stop interpolation of string contents, you don't need to \\ escape your slashes

      # my $path = ("\"c:\\Program Files\\SecureFX\\sfxcl\""); my $notepad = 'c:/Windows/notepad.exe'; system $notepad, 'C:\Boot.ini';

      Cheers,
      R.

      Pereant, qui ante nos nostra dixerunt!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1049935]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2014-12-19 02:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (70 votes), past polls