<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
use strict;
use POSIX;
use Data::Dumper;



my $dir_incoming="/srv/imgcache/img9.gram.pl/lightbox/";


if (opendir(my $dir, $dir_incoming)) {
    my @pliki = grep { /^GAL[0-9]*IMG.*$/i } readdir($dir);
    foreach my $plik (@pliki) {
	my $fn = $plik;
	$fn =~ s/^(GAL[0-9]*)IMG.*$/\1/i;

	printf(" - ".$plik . " -&gt; " . $fn . "\n");
	mkdir $fn;
	rename $dir_incoming."/".$plik, $fn."/".$plik;
    }
}</pre></body></html>