; chomp (\$input); ]]> &1`; ]]> \$b} @files;]]> \$a} @files;]]> \$age{\$a} } keys %age;]]> \$age{\$b}; # presuming numeric } @sortedclass = sort byage @class; ]]> )) { chomp (\$line); print "\$line\\n"; } close (FILE); ]]> \$file") or die ("Ooops! Could not open \$file: \$!"); print FILE "\Some data\\n"; close (FILE); ]]> ; close (FILE); ]]> ); } close (FILE); ]]> new(name => \$log); while (defined(\$line = \$file->read)) { print "\$line"; } ]]> 'fromemail@domain.net', To => 'recipient@domain.net', CC => 'ccrecipient@domain.net', BCC => 'bccrecipient@domain.net', Subject => "Subject", Message => "This is the message", ); sendmail(%mail) or die \$Mail::Sendmail::error; ]]> ; To: Recipient Name ; Subject: Subject This is the message MAIL close(SENDMAIL) or warn "sendmail didn't close nicely"; ]]> new(\$server, Timeout => 60) or die ("Error: Could not log onto server!"); \$ftp->login(\$username, \$password) or die ("Error: username or password was incorrect!"); \$ftp->put('/path/to/localfile', '/path/to/remotefile') or die ("Error: Unable to upload file!"); \$ftp->quit; ]]> connect("DBI:mysql:\$database:\$hostname", \$username, \$password); \$query = \$db->prepare(q|| SELECT fname, lname FROM sometable WHERE fname = ? ||); \$query->execute(\$first_name); # execute passes the value(s) into the ? in the sql statement above \$numrows = \$query->rows; print "\$numrows found.\\n"; while (@array = \$query->fetchrow_array) { (\$fname, \$lname) = @array; print "fname = \$fname, lname = \$lname\\n"; } \$query->finish; \$db->disconnect; ]]> connect("DBI:Sybase:server=MSSQLServer;database=DatabaseName", \$username, \$password); \$query = \$db->prepare(qq|| SELECT fname, lname FROM sometable WHERE fname = '$fname' ||); \$query->execute(); # can't pass in value(s) - not supported by with this DB... while (@array = \$query->fetchrow_array) { (\$fname, \$lname) = @array; print "fname = \$fname, lname = \$lname\\n"; } \$query->finish; \$db->disconnect; ]]> connect('DBI:SQLite:databasename.db'); \$query = \$db->prepare(q|| SELECT fname, lname FROM sometable WHERE fname = ? ||); \$query->execute(\$first_name); # execute passes the value(s) into the ? in the sql statement above while (@array = \$query->fetchrow_array) { (\$fname, \$lname) = @array; print "fname = \$fname, lname = \$lname\\n"; } \$query->finish; \$db->disconnect; ]]> of you?||; \$html = encode_entities(\$orig); print "\$orig\\n"; print "\$html\\n"; ]]> new; while () { \$md5->add(\$_); } close(BINFILE); print \$md5->b64digest . "\\n"; ]]> Sql(\$sql); while (\$db->FetchRow()) { %hash = \$db->DataHash; print \$hash{'foo'}; } \$db->Close(); ]]>