Programm Perl zwei verschiedene Eingänge durch STDIN nehmen

Question

Ich versuche, ein Perl-Programm zu schreiben:

print "Enter the filename:"; 
    $filename = readline STDIN; 

    print "Enter the string to be compared"; 
    $string1 = readline STDIN; 

Um diese beiden Eingänge auf einmal zu kombinieren, ich habe folgendes:

print "Enter the filename and string to be compared:"; 
    my $input1 = readline STDIN; 
    my @name = split(' ',$input1); //split the input parameters by space 
    $filename = $name[0]; 
    $string1 = $name[1]; 
    chomp $string1; 

Das ist Funktionscode, ich wollte wissen, ob es andere Möglichkeiten gibt, eine optimierte Version für diese Logik zu implementieren?

Danke, DD

Answer 1

Das etwa ist so optimiert, wie Sie bekommen. Versuchen Sie nicht, den Code zu optimieren, bis Sie sicher sind, dass Sie ihn benötigen. Da dies ein Warten auf IO ist, ist es nicht wichtig, weil IO langsamer ist als alles, was Sie im Code tun.

Aber wenn Sie bedeuten mehr prägnante:

print "Enter the filename and string to be compared:"; 
chomp (my ($filename, $string) = split ' ', <>); 

Dies geschieht <> - was die Magie Dateihandle ist, und liest entweder STDIN oder einen Dateinamen in der Befehlszeile angegeben. (Funktioniert wie grep/sed/awk).

Wir teilen es auf ein Leerzeichen in einem skalaren Kontext - und übergeben dann die Werte aus Split an eine Listenzuweisung an $filename und $string. Das ist dann chomped, um linefeeds zu strippen.

Answer 2

Was kite Von Perl Geheimnis

use warnings; 
use strict; 
print "Enter the filename and string to be compared:"; 
chomp(my @ar = (~~<>, ~~<>)); 
print @ar;   

Answer 3

Versuchen Sie den Code unten mit dem `comand mit: perl your_script.pl -file_name 'irgendeine_Datei' -string 'some_string'

use Getopt::Long; 

my ($file_name, $string); 
GetOptions(
'file_name=s' => \$file_name, 
'string=s' => \$string, 
) or die "Could not parse options"; 

if($file_name eq $string) 
{ 
print "The file name is the same as the string\n"; 
}else{ 
print "Not a match\n"; 
}