#!/bin/sh # uuencode a file, copy/paste a binary file over a terminal connection INFILE="$1" PATHFILE=$2 if [ -z "$PATHFILE" -o "$PATHFILE" = "-h" ]; then echo "USAGE: $0 file filenameWhenUnpackeing" echo "Example: $0 data.zip data.zip" echo "The uuencoded data will be printed on stdout" exit 0 fi export SHORTFILE=`basename "$PATHFILE"` perl -ple 'BEGIN{$/=undef} $_= "begin 600 $ENV{SHORTFILE}\n".(pack 'u', $_)."`\nend" if $_' "$INFILE"