ovntatar

#!/usr/bin/env perl
 
sub getArguments { ref( $_[0] ) ? shift() : ( @_ % 2 ) ? {} : {@_}; };

ovntatar

#!/bin/bash

curl https://raw.github.com/miyagawa/cpanminus/master/cpanm > cpanm
mv cpanm ~/
chmod 755 ~/cpanm
echo "PERL5LIB=~/perl5/lib/perl5/" >> ~/.bashrc
echo "export PERL5LIB" >> ~/.bashrc
source ~/.bashrc

ovntatar

#!/bin/bash
#
#
# SCRIPT:   $0
# AUTHOR:   ovntatar
# DATE:     $date
#
# PURPOSE:  The script bash template
#
#

ovntatar

#!/bin/bash

find . -type f | xargs perl -pi -e 's/OLD_VALUES/NEW_VALUE/g'

ovntatar

perl -MReadonly -e 'print "$Readonly::VERSION\n"'

ovntatar

#!perl


use strict;
use warnings;
use File::Find;
use Digest::MD5;

@ARGV=grep { -d or !warn "`$_': not a directory!\n" } @ARGV;
die "Usage: $0 <dir> [<dirs>]" unless @ARGV;

ovntatar

#!perl -s -i.bak -wpl
# Usage: change_file -old='old' -new='new' [f1 f2 ...]
s/$old/$new/g;

ovntatar

#!perl

use warnings; 
use strict; 

$|++;

use DDP;
use LWP;

ovntatar

#!perl

# perl script.pl < file.txt

use warnings;
use strict;


my %seen=();
while(<>) {

ovntatar

#!/bin/bash

searchfor="Hallo" # something to search for
tempfile="search.log" # temporary logfile


echo -n "Searching for $searchfor. "

grep -rl $searchfor / 2>/dev/null 1>>$tempfile &