[PERL] HexToAscii e AsciiToHex, problema ciclo IF

[The Massakretor]

#!/usr/bin/perl
    ##===============================================================
    ##
    ## Author: The Massakretor
    ##
    ## Description: Convert an ascii string to a hexidecimal string
    ## an hex string to an ascii string.
    ##
    ##===============================================================

print "Scrivi se vuoi convertire AsciToHex o HexToAscii ( ath/hta )";
$var = <>;
if ($var =~ /ath/) { 
print "Inserisci il Valore da convertire in hex\n";
$ascii = <>;
chomp $ascii;
@Hex = unpack("H*", "$ascii");
print "Il valore convertito è @Hex\n";
 }

if ($var =~ /hta/) {
print "Inserisci il valore da convertire in Ascii\n";
$hex = <>;
chomp $hex;
@Ascii = pack("H*", $hex);
print "Il valore convertito in hex è @Ascii\n";
 }

È la prima volta che uso il ciclo if in perl, dovrei mettere, ed in totale per confrontare 2 stringhe si usa il comando eq, ma perchè non funziona allora? e elsif non si usa in perl?

Scusate la stupidaggine del codice..

EDIT: Risolto

 

[imported_ShuraBozz]

solo per chiarirti le idee: if non è un ciclo, bensì una struttura di controllo

 

[imported_lepa]

devi chomparla, altrimenti ti calcola anche il ritorno a capo

edit: esempio, ti conta "ath\n", che è diverso da "ath"

 

[The Massakretor]

Codice2:
vari problemi risolti, ora traduce AsciiToHex, perfettamente....
L' HexToAscii non mi stampa a schermo la il decode

#!/usr/bin/perl
    ##===============================================================
    ##
    ## Author: The Massakretor
    ##
    ## Description: Convert an ascii string to a hexidecimal string
    ## an hex string to an ascii string.
    ##
    ##===============================================================

print "Scrivi se vuoi convertire AsciToHex o HexToAscii ( ath/hta )";
$var = <>;
if ($var =~ /ath/) { 
print "Inserisci il Valore da convertire in hex\n";
$ascii = <>;
chomp $ascii;
@Hex = unpack("H*", "$ascii");
print "Il valore convertito è @Hex\n";
 }

if ($var =~ /hta/) {
print "Inserisci il valore da convertire in Ascii\n";
$hex = <>;
chomp $hex;
@Ascii = pack("H*", $hex);
print "Il valore convertito in hex è @Ascii\n";
 }

 

[imported_lepa]

scusa, ma hex, non l'avevi impostata come scalare?

 

[Robertof]

@hex

Infatti qui dovrebbe andare $hex uhm..

 

[The Massakretor]

Quoto, ora funziona

 

[imported_lepa]

però non fa uguale, mi ritorna un carattere in meno a me
32->2, invece che 20

edit: ah....ok

 

[fojeaf]

nn conosco bene il perl ma al posto di <> nn è meglio scrivere <STDIN> ?

 

[imported_ShuraBozz]

è praticamente uguale, meglio <>, altro che python

 

[fojeaf]

è praticamente uguale, meglio <>, altro che python

"perl è vicino al parlato" fonte: ogni guida.....

Perl: <> (d'altronde tutti dicono minore-maggiore nel parlato)
Python: input() (mi sembra + diretto)

 

[imported_ShuraBozz]

non è quello che volevo dire comunque...come non detto

 

[The Massakretor]

mi scoccia scrivere <STDIN>, meglio <>, più breve ed è la stessa cosa, solo per questo

 

[imported_lepa]

è praticamente uguale, meglio <>, altro che python

"perl è vicino al parlato" fonte: ogni guida.....

Perl: <> (d'altronde tutti dicono minore-maggiore nel parlato)
Python: input() (mi sembra + diretto)

se la vogliamo mettere così c'è anche la funzione read...

read STDIN, $var, [length];

 

[fojeaf]

vabbé dai, la mia era una disgressione inutile, ho precisato il <STDIN> perché secondo quanto letto in giro è la scrittura migliore per questioni di standard, poi magari mi sbaglio...