All snippets of the tag string |
 |
1-10 of 34 Entries |
 |
|
urlencode
(Perl::Function) |
Created by Marko Schulz at 2010-07-27 15:22:49 |
| # ***************************************
# This function encode a string.
sub urlencode {
my $package = shift;
my ($str) = shift;
$str =~ s/([\W])/"%".uc(sprintf("%2.2x",ord($1)))/eg;
return $str;
} |
|
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 removes whitespace at the end of a string.
#
# @param string $1 string (optional, can also handle STDIN)
# @return string
# @example: echo "That is a s... |
|
ltrim
(Bash::Function) |
Created by Marko Schulz at 2010-02-02 00:16:07 |
| # ***************************************************************************
# This function removes whitespace at the beginning of a string.
#
# @param string $1 string (optional, can also handle STDIN)
# @return string
# @example: echo " That... |
|
trim
(Bash::Function) |
Created by Marko Schulz at 2010-02-02 00:05:09 |
| # ***************************************************************************
# This function removes whitespace at the beginning and end of a string.
#
# @param string $1 string (optional, can also handle STDIN)
# @return string
# @example: ech... |
|
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 ... |
|
1-10 of 34 Entries |
|
|