Re: REQ: Programma (files sorteren)

Article View: be.comp.programming

Article #11286

Back to be.comp.programming Previous Next

#11286

From: zussie
Date: Thu, 14 Feb 2002 21:00

29 lines
1728 bytes

Philip:

>Je kan je text file openen en in een array laden met split(), dan je directory
>openen, en in een loop de filenames comparen tegen met wat in je array zit, en
>op basis daarvan in een andere directory gooien.

(sort_clipart.pl)
#--8<--<8--<8--<--8<--

use strict;

my $sourcedir 	= "c:\clipart\";
my $goeddir	= "c:\clipart_goed\";
my $troepdir	= "c:\clipart_troep\";

while (<>)
{
    system("move /y $sourcedir$_ $goeddir");
}

system("move /y $sourcedir*.*  $troepdir");

#-->8-->8-->8-->8-- 

aanroepen met : perl sort_clipart.pl clipart_goed.txt

groetjes, su.(hth, hand)
-- 
alles komt nooit weer

Technical Details

Message-ID: <3c6c2064.1892060@fb1.euro.net>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!193.251.151.101!opentransit.net!newsfeed.media.kyoto-u.ac.jp!news2.euro.net!nl-news.euro.net!not-for-mail

References: <a4gp3m$39m$1@news.worldonline.be> <N9Sa8.141789$rt4.13037@afrodite.telenet-ops.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: 107324,a6c7baea7862c4de
X-Google-Attributes: gid107324,public
X-Google-Thread: fcea4,a6c7baea7862c4de
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2002-02-14 13:00:47 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news.tele.dk!small.news.tele.dk!193.251.151.101!opentransit.net!newsfeed.media.kyoto-u.ac.jp!news2.euro.net!nl-news.euro.net!not-for-mail
From: su@islief.nl (zussie)
Newsgroups: be.comp.programming,nl.comp.programmeren
Subject: Re: REQ: Programma (files sorteren)
Date: Thu, 14 Feb 2002 21:00:53 GMT
Organization: EuroNet Internet
Lines: 29
Message-ID: <3c6c2064.1892060@fb1.euro.net>
References: <a4gp3m$39m$1@news.worldonline.be> <N9Sa8.141789$rt4.13037@afrodite.telenet-ops.be>
NNTP-Posting-Host: cp21873-a.tilbu1.nb.nl.home.com
X-Trace: nl-news.euro.net 1013720444 17083 217.120.102.57 (14 Feb 2002 21:00:44 GMT)
X-Complaints-To: usenet@nl-news.euro.net
NNTP-Posting-Date: Thu, 14 Feb 2002 21:00:44 +0000 (UTC)
X-Newsreader: Forte Free Agent 1.11/32.235

Reply to Parent Message