ovntatar

perl -MGitHub::Jobs -e 'print $INC{"GitHub/Jobs.pm"}' or perldoc -l GitHub::Jobs

ovntatar

#SED If a line begins with an [A-Z], append it to the previous line

$cat File
\z      No
True at end of string only.
\Z      No
True at end of string or before optional newline.


$sed -e :a -e '$!N;s/\n[A-Z]//;ta' -e 'P;D' File

ovntatar

#!/bin/bash


#run task sequential 
time for i in `seq 1 5`;do sleep 1; done

#run task in parallel
time for i in `seq 1 5`;do  sleep 1 & done ; wait

ovntatar

#!/bin/bash
#Compare lines in the same file

while read A
do
	read B
	((i+=2))
	[ "$A" != "$B" ] && echo "$A == $B Lines $((i-1)) and $i are different"
done < file1.txt

ovntatar

#!/bin/bash
# simple cisco equipment - telnet client - required IpList and commands files

echo "==============================="
echo " Please enter you pass! "
echo "==============================="

read -s -p "password: " pw
printf "%b" "\n"
cmd=`cat commands`

ovntatar

#!/bin/bash
# simple icmp loop

while true
do
	ping -w2 -s 1550  $1 > /dev/null
	if [ $? -ne 0 ]:then
		echo "--- icmp request failed -- $(date) ---" >> /var/log/icmp.log
	fi
done < IPLIST

ovntatar

#!perl

# Tree (PERL)
# ordering option -- Preorder - Inorder - Postorder

$tree=["Root", ["Grandma",["Mam",["Me"],["Brother"]],["Dad",["test"]],],];

sub FamRec {
  my $Person=$_[0];
  print "-".$$Person[0]."\n";

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 &

ovntatar

#!perl

# perl script.pl < file.txt

use warnings;
use strict;


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

ovntatar

#!perl

use warnings; 
use strict; 

$|++;

use DDP;
use LWP;