Δημοσιεύτηκε: 16 Αύγ 2011, 00:48
από gravitalsun
Δοκιμάστε να τρέξετε τη παρακάτω εντολή από το command line.
Υπάρχει τόσο πολύ σοφία τόσο απίστευτες δυνατότητες στη Perl ...


Κώδικας: Επιλογή όλων
perl -E'@A{split//,$ARGV[0]}=1;@B{split//,$ARGV[1]}=1;say %A~~%B?"TRUE":"FALSE"' AaaaBbbbCccc AaBbCc