use strict;
use warnings;

opendir(DIR,"test");
while($datei = readdir(DIR)) 
{ 
	open(INPUT,'<',"test/$datei");
	print $datei;
	undef $/;
	#open (OUTPUT,">>Ausgabe.txt") or die "konnte $ziel nicht oeffnen,$!\n";
	$_ = <INPUT>; 
	tr/\000//d; s/" /"\n/g; s/>/>\n/g;
	
	#print "$_\n";
	
	(my $testschritt) = $_ =~ /SNNH-UB01-002/gsm;
	
	print "$testschritt\n";

	if(defined($testschritt))
	{
		#print "$datei\n";
		#rename("test/$datei", "SNNHUB01/$datei");
		#print "$testschritt\n";
		#chmod 0777, $datei;
		#unlink ('test/$datei');
		system "copy \"test\$datei\" SNNHUB01\\";
	}
	
	
	close (INPUT);
	close(FILE);
}
closedir(DIR);

use strict;
use warnings;
use Tie::File;
use File::Spec;
use File::Copy qw(move);

my $dir = 'test';
my $out = 'SNNHUB01';

opendir my $dirh, $dir or die $!;
while( my $entry = readdir $dirh ){
    my $path = File::Spec->catfile( $dir, $entry );
    next unless -f $path;

    tie my @lines, 'Tie::File', $path or die $!;
    my $found = grep { /SNNH-UB01-002/ }@lines;
    untie @lines;

    next unless $found;

    my $new = File::Spec->catfile( $out, $entry );
    move $path, $new or die $!;
}
closedir $dirh;

#!/usr/bin/perl

use warnings;
use strict;

my $pfad = "C:\\Lokale_Daten\\test\\";
opendir(my $fhDir, $pfad) or die $!;
my @files = grep { $_ !~ m/^\.{1,2}$/ } readdir($fhDir);
closedir($fhDir) or die $!;

my $pfadZiel = "C:\\Lokale_Daten\\SNNHUB01";
my $gefunden;
foreach (@files) {
   my $dateiEin = $pfad.$_;
   open(my $fhFiles, $dateiEin) or die $!;
   while(my $zeile = <$fhFiles>) {
      $gefunden = "";
      if ($zeile =~ m/SNNH-UB01-002/) {
         $gefunden = "X";
         last;
      } # if
   } # while
   close($fhFiles);
   system "move $dateiEin $pfadZiel" if $gefunden eq "X";
} # foreach

print "Fertig.\n";