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
# 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

#!/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
#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


#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

#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

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

ovntatar

perl -d -e 1

ovntatar

package WWW::XXXX;
 
use Scalar::Util qw(looks_like_number);
use Moo;
 
 
has number => (
   is  => 'rw',
   isa => sub { die "$_[0] is not int" unless looks_like_number $_[0] },
);

ovntatar

package My::UserAgent

use Mojo::UserAgent;
use Moo;

has _ua => (
    is => 'ro',
    lazy => 1,
    init_arg => 0,
    default => sub {