From 1b55166af1e600a15b2b655e026c8948961be6d1 Mon Sep 17 00:00:00 2001
From: JozanLeClerc <bousset.rudy@gmail.com>
Date: Sun, 1 Nov 2020 18:42:54 +0100
Subject: Few updates
---
.local/bin/unixize | 34 +++++++++++++++++++++++++++-------
1 file changed, 27 insertions(+), 7 deletions(-)
(limited to '.local/bin/unixize')
diff --git a/.local/bin/unixize b/.local/bin/unixize
index 27c1a8b..4f03c14 100755
--- a/.local/bin/unixize
+++ b/.local/bin/unixize
@@ -17,17 +17,37 @@ sub get_og_files
return @og_files;
}
-sub get_new_files
+sub unixize_file_names
{
my @og_files = @_;
my @new_files;
foreach (@og_files) {
- $_ =~ s/\ -\ /-_/g;
- $_ =~ s/\_-\_/-_/g;
- $_ =~ s/['"]+/_/g;
- $_ =~ s/\ /_/g;
- $_ =~ s/[\$#@~!&*%()\[\];,:?^`\\\/<>|]+/-/g;
+ if ($_ =~ /^[0-9]+\./) {
+ $_ =~ s/\.//;
+ }
+ $_ =~ s/ - /_/g;
+ $_ =~ s/ /_/g;
+ $_ =~ s/c\+\+/cxx/g;
+ $_ =~ s/C\+\+/CXX/g;
+ $_ =~ s/[áàåâä]/a/g;
+ $_ =~ s/[ÁÀÅÂÄ]/A/g;
+ $_ =~ s/æ/ae/g;
+ $_ =~ s/Æ/AE/g;
+ $_ =~ s/ç/c/g;
+ $_ =~ s/Ç/C/g;
+ $_ =~ s/[éèêë]/e/g;
+ $_ =~ s/[ÉÈÊË]/E/g;
+ï
+î
+ì
+ $_ =~ s/ô/o/g;
+ $_ =~ s/Ô/O/g;
+ $_ =~ s/ö/o/g;
+ $_ =~ s/Ö/O/g;
+ $_ =~ s/ü/u/g;
+ $_ =~ s/Ü/U/g;
+ $_ =~ s/[^A-Za-z0-9\._]+//g;
$_ = lc($_);
push @new_files, $_;
}
@@ -41,7 +61,7 @@ sub main
my @files;
@og_files = get_og_files();
- @new_files = get_new_files(@og_files);
+ @new_files = unixize_file_names(@og_files);
while (@og_files || @new_files) {
$files[0] = shift @og_files;
$files[1] = shift @new_files;
--
cgit v1.2.3