Δημοσιεύτηκε: 16 Αύγ 2011, 00:48
Δοκιμάστε να τρέξετε τη παρακάτω εντολή από το command line.
Υπάρχει τόσο πολύ σοφία τόσο απίστευτες δυνατότητες στη Perl ...
Υπάρχει τόσο πολύ σοφία τόσο απίστευτες δυνατότητες στη Perl ...
- Κώδικας: Επιλογή όλων
perl -E'@A{split//,$ARGV[0]}=1;@B{split//,$ARGV[1]}=1;say %A~~%B?"TRUE":"FALSE"' AaaaBbbbCccc AaBbCc