P
PySeq
|||||
Hi,
hier ein weiteres Perl-Skript. Es gibt ja diese DX7-Patch-Sammlung "alltheweb". Die ".zip"-Datei wird zu einem Verzeichnis "DX7_AllTheWeb" mit zahlreichen Unterverzeichnissen entpackt, in denen sich viele ".SYX"-Dateien befinden.
Aber in welcher Dateien befindet sich jetzt ein bestimmter Patch, den man (anhand des Namens) sucht?
Dazu das Skript. Man tut es in das Verzeichnis "DX7_AllTheWeb". Oder in eins der Unterverzeichnisse. Bei "Big Mamma" ist z.B. viel zu finden, man kann das Skript also auch in "../DX7_AllTheWeb/Big Mamma" tun, und dann da ausführen.
Den Patch-Namen gibt man mit, also z.B. "./finddx7patch.pl jazz".
Das Skript sucht dann in dem Verzeichnis und in allen Unterverzeichnissen nach ".SYX"-Dateien, führt auf diesen den bash-Befehl "strings" aus, erhält so die ASCII-Inhalte innerhalb der Dateien und gleicht diese mit dem Suchstring ab.
Wenn es Übereinstimmungen findet, gibt es die Dateinamen aus (und wenn man als Zweites noch die Option "-v" für "verbose" mitgibt, auch die gefundenen Strings). Das ist nützlich.
(Alternativ könnte man auch was mit bashs "grep" bauen, aber ich fand's so schöner.)
hier ein weiteres Perl-Skript. Es gibt ja diese DX7-Patch-Sammlung "alltheweb". Die ".zip"-Datei wird zu einem Verzeichnis "DX7_AllTheWeb" mit zahlreichen Unterverzeichnissen entpackt, in denen sich viele ".SYX"-Dateien befinden.
Aber in welcher Dateien befindet sich jetzt ein bestimmter Patch, den man (anhand des Namens) sucht?
Dazu das Skript. Man tut es in das Verzeichnis "DX7_AllTheWeb". Oder in eins der Unterverzeichnisse. Bei "Big Mamma" ist z.B. viel zu finden, man kann das Skript also auch in "../DX7_AllTheWeb/Big Mamma" tun, und dann da ausführen.
Den Patch-Namen gibt man mit, also z.B. "./finddx7patch.pl jazz".
Das Skript sucht dann in dem Verzeichnis und in allen Unterverzeichnissen nach ".SYX"-Dateien, führt auf diesen den bash-Befehl "strings" aus, erhält so die ASCII-Inhalte innerhalb der Dateien und gleicht diese mit dem Suchstring ab.
Wenn es Übereinstimmungen findet, gibt es die Dateinamen aus (und wenn man als Zweites noch die Option "-v" für "verbose" mitgibt, auch die gefundenen Strings). Das ist nützlich.
(Alternativ könnte man auch was mit bashs "grep" bauen, aber ich fand's so schöner.)
Perl:
#!/usr/bin/perl
use warnings;
use strict;
my $program_description = q(
finddx7patch.pl
(C) 2019, PySeq. Licence: GNU GPL version 2.
Searches inside ".SYX"-files for strings (names of DX7-patches).
Start this script inside the "../DX7_AllTheWeb"-directory, or
for example in "../DX7_AllTheWeb/Big Mamma", if you want to
search for DX7-patches just in that directory.
-----
GNU GPL copyright notice:
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>. );
use File::Find;
use Cwd;
my $SEARCHSTRING;
my @OVERALLFOUND;
if ($#ARGV < 0) {
print "\nUsage: finddx7patch.pl SEARCHSTRING\n\n";
exit 1;
} else {
$SEARCHSTRING = $ARGV[0];
}
my $VERBOSE = 0;
if ($#ARGV >= 1 && $ARGV[1] eq "-v") {
$VERBOSE = 1;
}
sub wanted {
my $name = $File::Find::name;
if ($name !~ m/SYX$/i) {
return;
}
my @a = `strings "$name"`;
my @found = ();
my $i;
for $i (@a) {
chomp($i);
if ($i =~ m/$SEARCHSTRING/i) {
push(@found, $i);
}
}
if ($#found >= 0) {
print "$name\n";
push(@OVERALLFOUND, $name);
if ($VERBOSE) {
for $i (@found) {
print "$i\n";
}
}
if ($VERBOSE) {
print "\n";
}
}
}
my $dir = getcwd();
print "\n";
find(\&wanted, $dir);
if ($#OVERALLFOUND == -1) {
print "Sorry, \"$SEARCHSTRING\" not found in the DX7-files.\n\n";
} elsif (! $VERBOSE) {
print "\n";
}
Zuletzt bearbeitet:
