translate perl to autoit

[jimmyjmmy]

Hi,

Can someone help me to translate this perl script to autoit.

Thanks

;;;;;;;;;;;;;;script################

open (FILE,'<',"c:\\perl\\id_and_pass.txt") || die "No files found $!\n";

while (<FILE>){

chomp;

($userid, $password) = split /\t/,$_;

}

[dbzfanatic]

I don't know what the perl function chomp does so this is all I can help you with.

$file = FileOpen("C:\Perl\id_and_pass.txt")
For $i = 1 To FileCountLines($file)
$line = FileReadLine($file,$i)
$user_pass = StringSplit($line,"\t,_") & @CRLF;could be wrong since I don't know perl
Next

[DaleHohm]

chomp removes carriage control (as defined by $/ in Perl) from the end of line... you can probably use StringStripCR in AutoIt

$_ represents a line read from the file... in the example above, this would be $line

\t is represented in AutoIt as @tab

so, use the above, but use

$aUser_pass = StringSplit(StringStripCR($line), @tab)

and note that $aUser_pass will be an array with element 0 telling you the number of substrings in the array.

Dale

[PsaltyDS]

Hi,

Can someone help me to translate this perl script to autoit.

Thanks

;;;;;;;;;;;;;;script################

open (FILE,'<',"c:\\perl\\id_and_pass.txt") || die "No files found $!\n";

while (<FILE>){

chomp;

($userid, $password) = split /\t/,$_;

}

Taking a shot at it (with more error checking than the original):

#cs
    open (FILE,'<',"c:\\perl\\id_and_pass.txt") || die "No files found $!\n";
    while (<FILE>){
    chomp;
    ($userid, $password) = split /\t/,$_;
    }
#ce

$hFile = FileOpen("c:\perl\id_and_pass.txt", 0); 0 = read mode
If $hFile = -1 Then
    MsgBox(16, "Error!", "No files found!")
    Exit
Else
    While 1
        $sLine = StringStripWS(FileReadLine($hFile), 2); 2 = strip trailing whitespace
        If @error Then ExitLoop
        $avSplit = StringSplit($sLine, @TAB)
        If $avSplit[0] >= 2 Then 
            MsgBox(64, "Results", "userid = " & $avSplit[1] & @CRLF & "password = " & $avSplit[2])
        Else
            MsgBox(16, "Error!", "Malformed line read:  " & $sLine)
        EndIf
    WEnd
EndIf

FileClose($hFile)

>_<

Bah! Beaten to it! Who let the monkey in here...?

Edit: Added FileClose()

Edited September 29, 2008 by PsaltyDS

[DaleHohm]

Bah! Beaten to it! Who let the monkey in here...?

I may have gotten there first, but you still added value - as usual! >_<

Dale

[PsaltyDS]

I may have gotten there first, but you still added value - as usual! >_<

Dale

Bah! Beaten to it! Who let the monkey very perceptive, intelligent, and good looking gorilla in here...?