All snippets of the tag string |
|
1-10 of 33 Entries |
|
|
md5 (Bash::Function) |
Created by Marko Schulz at 2010-02-02 00:34:01 |
# ***************************************************************************
# This function encode a sting in md5 hash of 32 characters. You can short
# the length with the second parameter.
#
# @param string $1 string (required)
# @param integer ... |
|
rtrim (Bash::Function) |
Created by Marko Schulz at 2010-02-02 00:16:57 |
# *******************************************************
# This function is like the php function rtrim,
# witch removes all spaces in back of a string.
#
# @param <STDIN>|$1 - The string as param or pipe stream
# @return string
#
function rt... |
|
ltrim (Bash::Function) |
Created by Marko Schulz at 2010-02-02 00:16:07 |
# *******************************************************
# This function is like the php function ltrim,
# witch removes all spaces in front of a string.
#
# @param <STDIN>|$1 - The string as param or pipe stream
# @return string
#
function l... |
|
trim (Bash::Function) |
Created by Marko Schulz at 2010-02-02 00:05:09 |
# *******************************************************
# This function is like the php function trim,
# witch removes all spaces in front & back of a string.
#
# @param <STDIN>|$1 - The string as param or pipe stream
# @return string
#
func... |
|
is_string (Perl::Check) |
Created by Marko Schulz at 2010-01-20 14:18:11 |
# **************************************************************
# This function check if the reference is a SCALAR.
#
# @example: print "ERROR: A SCALAR is needed\n" if ( !is_string(\$string) );
sub is_string {
my $ref = shift;
return 0 unless ... |
|
kill_space (Perl::Function) |
Created by Marko Schulz at 2010-01-20 13:52:50 |
sub kill_space {
my $str=shift;
$str =~ s/\s+/ /g;
return $str;
} |
|
boundary (Perl::Function) |
Created by Marko Schulz at 2010-01-20 13:50:34 |
# my $boundary=boundary(24);
# **************************************
# Zufaellige Zeichenfolge einer
# bestimmten laenge generieren.
sub boundary {
my $boundary="";
my @sign=(0..9, 'A'..'F');
srand(time ^ $$);
$boundary .= $sign[rand(@sign)] w... |
|
dirname (Perl::Function) |
Created by Marko Schulz at 2010-01-20 13:49:23 |
sub dirname {
return $1 if ($_[0] =~ m/.*[\/\\](.+)/g);
} |
|
crypt (Perl::Scripts) |
Created by Marko Schulz at 2010-01-20 13:48:44 |
#!/usr/bin/perl
use strict;
# Eingegebenes Passwort...
my $pass='geheim';
# Verschluesseltes Passwort z.B. aus Datei...
my $cpass='XPkzdnI74tF6E';
# **************************************************
# checken ob Eingegebenes Passwort mit dem ... |
|
code2html (Perl::Snippets) |
Created by Marko Schulz at 2010-01-20 13:42:41 |
sub code2html {
my $text=shift;
$text =~ s/\[mail\]([^\[]*)\*([^\[]*)\[\/mail\]/<a href=\"mailto:$1\">$2<\/a>/gim;
$text =~ s/\[www\]([^\[]*)\*([^\[]*)\[\/www\]/<a href=\"$1\" target=\"_blank\">$2<\/a>/gim;
$text =~ s/\[b\]([^... |
|
1-10 of 33 Entries |
|
|