Schlagwort-Archiv: Perl

Perl – URL encode string

Dafür gibt es zwar bereits die ein oder andere Funktion, aber manchmal braucht man es doch per Hand. 😉

## Sonderzeichen werden ersetzt
$string4transform =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg ;

Das ganze lässt sich natürlich auch in einer simplen Funktion unterbringen.

# Recode Strings to use it in a URL
#
sub StringURL {
	my ($string4transform) = @_ ;

	## Sonderzeichen werden ersetzt
	$string4transform =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg ;

	return ($string4transform) ;
}

 

Perl – Validate Email – RegEx

Kurzer Check einer Email-Adresse mittels Regular-Expression (RegEx).

#
if ($input =~ /^[a-z,A-Z,0-9,\.,\-,\_]+\@[a-z,A-Z,0-9,\.,\-,\_]{2,}\.[a-z,A-Z]{2,4}$/) {
## do if true ^^
}

 

Show CGI Environment

Script: Show CGI Environment (Perl)

#!/usr/bin/perl

print 'Content-type: text/html\n\n';
print '\n';
print 'CGI Environment\n';
print '\n';
print '\n';
print 'CGI Environment\n';
foreach $env_var (keys %ENV) {
   print '$env_var = $ENV{$env_var}\n';
}
print '\n';

exit;