fra batch til perl

[magikern]

Dette er et script jeg skrev for å på en enklere måte flytte noen bilder fra en mappe til flere andre mapper sortert etter filnavn men jeg lurer på om en eller annen her kan skrive et perl script for meg som gjør akkurat samma jobben:

 

nå er jo det her basert på dos men jeg vil ha et som fungerer under RedHat.

 

Code:

echo off echo ........ md 2000 2001 2002 move ????2000.gif 2000 move ????2001.gif 2001 move ????2002.gif 2002 cd 2000 move ??01????.gif jan move ??02????.gif feb move ??03????.gif mar move ??04????.gif apr move ??05????.gif mai move ??06????.gif jun move ??07????.gif jul move ??08????.gif aug move ??09????.gif sep move ??10????.gif oct move ??11????.gif now move ??12????.gif dec cd .. cd 2001 move ??01????.gif jan move ??02????.gif feb move ??03????.gif mar move ??04????.gif apr move ??05????.gif mai move ??06????.gif jun move ??07????.gif jul move ??08????.gif aug move ??09????.gif sep move ??10????.gif oct move ??11????.gif now move ??12????.gif dec cd .. cd 2002 move ??01????.gif jan move ??02????.gif feb move ??03????.gif mar move ??04????.gif apr move ??05????.gif mai move ??06????.gif jun move ??07????.gif jul move ??08????.gif aug move ??09????.gif sep move ??10????.gif oct move ??11????.gif now move ??12????.gif dec cd ..

[ilpostino]

bash brukes jo under red hat også så det skule ikke være noe problem å kjøre scriptet ditt under rh selv om du har laget det i bash i en annen distro

[magikern]

bash brukes jo under red hat også så det skule ikke være noe problem å kjøre scriptet ditt under rh selv om du har laget det i bash i en annen distro

 

hum, du har vist lest litt feil eller misforstått, det er ikke bash det er batch altså dos prog, uansett har jeg ikke noe bruk for å vite det lengre.

[roff]

echo "flytte script (bash)"



# Årene du vil skal brukes

AAR="1999 2000 2001 2002"



# Navn på månedskatalogene

MND="jan feb mar apr mai jun jul aug sep okt nov des"





for A in $AAR

do

 MNDTELLER=0

 mkdir $A



 for M in $MND

 do

   mkdir $A/$M



   MNDTELLER=`expr $MNDTELLER + 1`

   MNDNR=$MNDTELLER

   if [ $MNDTELLER -lt 10 ]; then

     MNDNR=0$MNDTELLER

   fi

   echo Flytter ??$MNDNR$A.gif til $A/$M/

   mv ??$MNDNR$A.gif $A/$M/



 done

done

[magikern]

takk takk, men det er et halvt år siden jeg slet med dette og trenger det ikke nå, men ja hvem vet kanskje i fremtiden en gang...

[roff]

Hehe, tenkte bare jeg skulle komme med et script som svar på det du spurte om siden ingen hadde gjort det enda.