Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Perl Files umbenennen anhand csv Datei

Frage Entwicklung Perl

Mitglied: BadFsaadKl

BadFsaadKl (Level 1) - Jetzt verbinden

07.08.2013 um 12:29 Uhr, 2023 Aufrufe, 1 Kommentar

Moin zusammen,

Ich möchte anhand einer csv Datei Bilder von einem Ordner in einen anderen kopieren und dabei umbennen.

Als Quelle habe ich folgende csv:

01.
4220;13072_shop_1 
02.
4219;13071_shop_1 
03.
4182;13033_shop_1
Die erste Spalte ist der alte Dateiname und in der 2ten Spalte ist der neue Dateiname.

Anbei mal meine Anfänge, welche erst mal nur die csv ausliest, und eigentlich die gefundenen Files von A nach B kopiert:

01.
use warnings; 
02.
use File::Copy qw(copy); 
03.
use File::Spec; 
04.
 
05.
my $inputfile = 'C:\Data\export\ergebnis_test.csv'; 
06.
my $search1 = 'C:\Data\export\Bilder\original_images_alt'; 
07.
my $target1 = 'C:\Data\export\Bilder\test'; 
08.
 
09.
open (my $fh, '<', $inputfile) or die "Fehler beim oeffnen: $!"; 
10.
 
11.
opendir my $dirh, $search1 or die $!; 
12.
 
13.
while (<$fh>) { 
14.
    @field = split(/;/, $_); 
15.
    my @files = grep { ! /^\.\.?$/ } readdir $dirh; 
16.
    for my $filename (@files) { 
17.
        my $alt = File::Spec->catfile( $search1, $filename ); 
18.
        if( $filename =~ $field[0] ) { 
19.
            my $neu = File::Spec->catfile( $target1, $filename ); 
20.
            copy $alt, $neu; 
21.
        print "$alt, $neu\n"; 
22.
23.
24.
closedir $dirh; 
25.
close $fh; 
26.
 
Das Auslesen klappt ja wunderbar, auch das Quellverzeichnis wird richtig ausgelesen.
Nur das kopieren funktioniert nicht .

Kann mir jemand helfen ?

Danke
BadFsaadKl
Mitglied: Maveric
07.08.2013 um 14:09 Uhr
Gibt drei Optionen so etwas abzusetzen.

System("code")

Variable xy = `code`

exec("code")

Ich denke sie sind fast selbsterklärend. 1 und 3 öffnen eine extra Shell für sich wobei exec dein Skript an der stelle beendet.
Variante 2 gibt die dir Option das Ergebnis in eine Variable zu schreiben. Für dich wäre also "System("xy") zu benutzten.
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Aus dem Inhalt einer Datei (CSV) Dateien suchen und umbenennen
gelöst Frage von IT-WurzelBatch & Shell2 Kommentare

Hallo liebe Community, für mein Problem benötige ich von Euch Hilfe und wäre für einen Lösungsansatz sehr dankbar. Ich ...

Batch & Shell
Pdf Files umbenennen
Frage von SacredBatch & Shell7 Kommentare

Hallo ihr Lieben Ich stehe vor folgendem Problem. Ich habe 600 pdf-Files die umbenannt werden sollen. Der Aktuelle name ...

Batch & Shell
Batch: File-Filter - CSV Datei mit CreationTime und Owner
gelöst Frage von crinaXBatch & Shell1 Kommentar

Guten Morgen, habe nun eine Batch, welche mir Dateinamen + letztes Änderungsdatum in eine CSV speichert, welche älter als ...

Batch & Shell
Dateien Umbenennen
gelöst Frage von PLBot85Batch & Shell6 Kommentare

Hi, ich habe einen Ordner wo mehrer Dateien drin liegen. 20150316_121757_92636382965528_WMA1847GK62_TDOBB112.ddd 20150314_085730_73826383950256_WMA18263926_TDOBB236.ddd etc Die sollen jetzt mittels einer Batchdatei ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner14 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...