# FTP automation with Perl

# Generic file editing (Tip to remember: eat your daily "perl pie")
# -i=inplace_edit[with_backup] -p=loop -e=code
perl -p -i[.backup-extension] -e 's#string_to_replace#string_to_replace_it_with#ig' file(s)


# Add 4 digit linenumbers to a file
perl -p -i -e'$_ = sprintf "%04d %s", $., $_' test

# CPAN shell
perl -MCPAN -eshell

# Replacing tabs with spaces
perl -0011 -pi -e '/\011/&&($_="$'")' filename

# A grep for the DOS CLI
C:\>copy con grep
for ( <STDIN> ) {print $_ if $_ =~ /@ARGV/ ;};
^Z
        1 file(s) copied.
C:\>dir | perl grep <filter_string>
note: you always need to use "perl" or the ".pl" extention to execute perl scripts on Winblows machines!

# This is a lame attempt to wrap long lines to max.70 characters, they don't even filter emty lines!
cat logfile | perl -pe '$_=join("\n", split(/(.{69})/)); s/\n(.+)/$1\//;'

# More at IBM

# Create a directory and all unexisting directorys inbetween
perl -e '
  @dirs=split "/","$ARGV[0]";
  shift @dirs;
  foreach $dir ( @dirs ) {
    $makedir=$makedir."/$dir";
    mkdir $makedir,0750 if ( not -e $makedir );
  }
' $MAKEFULLPATH
"Kinda long to remember but i use it in shell scripts as a function."

# better grepping with perl

# Simple ping sweep

$ip=1
$while [ $ip -lt 31 ]
>do
>ping -c 1 10.66.26.$ip >/tmp/ip.log 2>&1 && print $ip
>let ip=$ip+1
>done

# reversed ps - feel free to revise it (used by me on AIX).

#!/usr/bin/ksh                                                                  
function GetPPName {                                                            
PID=$1                                                                          
PRTEXT=$(ps -fp $PID -F "user pid ppid tty pcpu time vsize args"|tail +2 )      
PPID=$(echo $PRTEXT | awk '{print $3}')                                         
if [[ $PID -gt 1 ]]                                                             
  then                                                                          
  print "$PRTEXT"                                                               
  GetPPName $PPID                                                               
elif [[ $PID -eq 1 ]]                                                           
then                                                                            
  print "$PRTEXT"                                                               
  exit                                                                          
else                                                                            
exit                                                                            
fi                                                                              
}
ps -fp  1 -F  "user pid ppid tty pcpu time vsize args" |head -1                 
GetPPName $1 

# Simple telnet and ftp automation, examples at your request:

#!/bin/sh
tpipe() {
sleep 3;echo 'user'
sleep 1;echo 'passwd'
sleep 1;echo 'who'
sleep 1;echo 'exit'
sleep 5
}
tpipe | telnet localhost

ftp ftp://user:passwd@localhost <file_containing_ftp_commands

echo 'cd /tmp' | ftp ftp://user:passwd@localhost

ftp ftp://user:passwd@localhost <<EOF         
>cd /var
>bye
>EOF

ftp -n << EOF
open $SYSTEM
user $USER $PASS
cd /tmp
put $FILE
bye
EOF

# "Shell Notes and Examples" from the Univ. of Lethbridge

# "Examples" from the book "Portable Shell Programming"

# ASCII convertions: unix2dos2unix2mac2unix - hummm, i like Unix ;)

AIX JFS calculations / convertions
Controlling processes and stuff - i suggest you also take a look at the rc-scripts of any Linux Distribution before you start using this.
Somme things i use(d) sporadicly and are dumped in this sript for later usage

# Who has the biggest homedir ?

du -ks /home/* | sort -n

find /var -ls -xdev | /usr/bin/sort -nr +6 | head
find /var -mount -ls -xdev | /usr/bin/sort -nr +6 | head

# What are the hidden files in this dir ?

ls -d .??*

# Get this cli script in vi for easy editing in memory using ksh!

[esc] + [v]

# Need to type a LineFeed (^J) in Korn shell?

[ctrl] + [v], [ctrl] + [j]

# Remove top line of a command:

df | tail +2 # kind of a side effect
df | sed '1d'

# Adding numbers in column layouts using awk:

ipcs -m -b | sed '1,3d' | awk '{SIZE+=$7} END {print SIZE}'

# Handy shell loops for the command line:

$ls -s1 | while read ss ff
>do
>print "size $ss - name and type \c"
>file $ff 
>done

$while read LINE
>do
>echo "$LINE" 
>done </tmp/file

$for ff in * # You can also use backtics for somme subshell output.
>do 
>file $ff 
>done

$while `sleep 5` # My favorite, instand, monitor.
>do
>clear
>df
>done

# You switch logs at night and quickly need yesterdays file?

ls -tr |tail -2|head -1

# Like to use find and grep in configs? Notice, there is a difference...

find /etc -type f -exec grep "string" {} \;
find /etc -type f -print | xargs grep "string" # In my favorite, you also get the filname.

# Howto use cat as an editor?

cat << EOF >> /tmp/file.out # Add everything after this line to file.out until the EOF string.
somme crappy text
EOF

# Determining the filesystem types of those partitions?

file -s /dev/hda{,1,2,3,4,5,6,7,8,9,10}

# How do i feed the ex editor in vi a newline?

Put this in the beginning of the script, it will capture all output and errors and your script will stay readable!
$exec >>/tmp/logfile 2>&1