Skip to content

Instantly share code, notes, and snippets.

@adriaandens
Last active July 6, 2017 10:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save adriaandens/4979399 to your computer and use it in GitHub Desktop.
Save adriaandens/4979399 to your computer and use it in GitHub Desktop.
A possible solution to the files.khleuven.be zip problem.
$p = $ARGV[0];
foreach(`cd "$p"; ls`) {
chomp($_);/^(.*)\\([^\\]+)$/;
$m=$1;$f=$2;$m=~s/\\/\//g;
`cd "$p";mkdir -p "$m"`;
`cd "$p";mv "$_" "$m/$f"`;
}
@adriaandens
Copy link
Author

(kutzooi, description laat geen enters toe dus zet ik het maar in een comment)

BEFORE:
Filename: "OOAnalyse\Groepsopdracht\TemplatesOpdracht\problems+opportunities+objectives+constraints_matrix.doc" AFTER:
Filename: "problems+opportunities+objectives+constraints_matrix.doc" in the directory "OOAnalyse/Groepsopdracht/TemplatesOpdracht/"

USAGE:
copy this into an empty file, save it and run on the commandline as:
perl minified_khleuven_zip_problem.pl /absolute/path/to/files/with/such/a/structure

EXAMPLE: perl minified_khleuven_zip_problem.pl /Users/adri/Google\ Drive/Adriaan/School/Toegepaste\ Informatica/2de\ Bachelor/selected_files_2012104_14457

Tested on the pafox/OOAnalyse/ directory.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment