Schlagwort-Archiv: snippet

PHP – Formatiere Datum

Veröffentlicht am 13. Februar 2013 | Einen Kommentar hinterlassen

Gerade bei Datumsangaben, welche direkt aus der Datenbank ausgelesen werden, eignet sich das unformatierte Datum wenig für die Ausgabe, z.B. für eine Druckausgabe.

function convert_date_4_print($input_string){
	$tmp_array = explode('-', $input_string) ;
	return $tmp_array[2].".".$tmp_array[1].".".$tmp_array[0] ;
}

Sicherlich kann das Datumsformat auch direkt beim SELECT formatiert werden, aber gerade bei manchen Frameworks ist die umformatierung schneller, als ein erneutes (manuelles) SELECT Statement.

Einen Kommentar hinterlassen

Veröffentlicht unter Codeschnipsel, PHP

Verschlagwortet mit , , ,

PHP – Formatiere Währung

Veröffentlicht am 13. Februar 2013 | Einen Kommentar hinterlassen

Immer wieder steht man vor der Situation, dass nach Rechenoperationen oder dem Auslesen aus einer Datenbank eine Zahl „lesbar“ zu formatieren, etwa für die Ausgabe in einem Druckauftrag.

function convert_amount_4_print($input_number){
	return number_format($input_number, 2, ",", ".");
}

 

Einen Kommentar hinterlassen

Veröffentlicht unter Codeschnipsel, PHP

Verschlagwortet mit , , ,

Perl – URL encode string

Veröffentlicht am 13. Februar 2013 | Einen Kommentar hinterlassen

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) ;
}

 

Einen Kommentar hinterlassen

Veröffentlicht unter Codeschnipsel, Perl

Verschlagwortet mit , , ,

Perl – Validate Email – RegEx

Veröffentlicht am 13. Februar 2013 | Einen Kommentar hinterlassen

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 ^^
}

 

Einen Kommentar hinterlassen

Veröffentlicht unter Codeschnipsel, Perl

Verschlagwortet mit , , ,