RE: Splitting Files (AIX 5.2)
- From: "Gogala, Mladen" <Mladen.Gogala@xxxxxxxx>
- To: "'Stephen.Lee@xxxxxxxx'" <Stephen.Lee@xxxxxxxx>, oracle-l@xxxxxxxxxxxxx
- Date: Fri, 10 Sep 2004 13:00:30 -0400
Stephen, I'll have to start waging jihad against you.
In this case, though, aesthetics of the code speaks
for itself. How can you even dream of comparing my beautiful,
well structured and tidy perl code with the monstrosity
below?
--
Mladen Gogala
A & E TV Network
Ext. 1216
> -----Original Message-----
> From: Stephen.Lee@xxxxxxxx [mailto:Stephen.Lee@xxxxxxxx]
> Sent: Friday, September 10, 2004 12:22 PM
> To: oracle-l@xxxxxxxxxxxxx
> Subject: RE: Splitting Files (AIX 5.2)
>
>
>
> Run this after doing your split command.
> ( We don't need no stinkin' Perl. :-)) )
>
> #!/bin/ksh
>
> COUNT=1
>
> for i in `ls -1 93_11_w2_.[a-z][a-z]* 2> /dev/null`; do
> j=`echo "$COUNT:$i" | /usr/bin/nawk -F: '{printf("%s%04d",
> substr($2,1,9), $1)'}`
> /usr/bin/mv "$i" "$j"
> COUNT=$(( $COUNT + 1 ))
> done
--
To unsubscribe - mailto:oracle-l-request@xxxxxxxxxxxxx&subject=unsubscribe
To search the archives - //www.freelists.org/archives/oracle-l/
Other related posts:
