How to replace spaces with different chars?

ovedpo15 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to replace spaces with different chars? by ikegami (Patriarch) on Jul 06, 2022 at 14:49 UTC
`my @special_chars = qw( : ; , = - ); my $special_chars_glob_alt = "{".( join ",", map quotemeta, @special_chars )."}"; my $corrupt_qfn = ...; my $glob = $corrupt_qfn =~ s{ ( [ ] ) \| ( [^\w ] ) }{ defined( $1 ) ? $special_chars_glob_alt : "\\$2" }xegr; my @possible_qfns = glob( $glob ); say for @possible_qfns;` [download] or `use Algorithm::Loops qw( NestedLoops ); my @special_chars = qw( : ; , = - ); my $corrupt_qfn = ...; my $iter = NestedLoops([ map { $_ eq " " ? \@special_chars : [ $_ ] } split( /( )/, $corrupt_qfn, -1 ) ]); while ( my @parts = $iter->() ) { my $possible_qfn = join( "", @parts ); say for $possible_qfn; }` [download] Four spaces results in 5⁴ = 625 possible paths.	[reply] [d/l] [select]
Re^2: How to replace spaces with different chars? by AnomalousMonk (Archbishop) on Jul 07, 2022 at 02:43 UTC
`s{ ( [ ] ) \| ( [^\w ] ) }{ defined( $1 ) ? $special_chars_re_class : "\\$2" }egr;` [download] I think this needs the `/x` modifier to work as advertised. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re^3: How to replace spaces with different chars? by ikegami (Patriarch) on Jul 07, 2022 at 19:13 UTC
Oops, fixed.	[reply]
Re^2: How to replace spaces with different chars? by ikegami (Patriarch) on Jul 06, 2022 at 21:00 UTC
The line at the bottom is hinting at the fact that this is not practical. What you could do instead of get a list of all the files, then use a regex match to find matching files. `use File::Basename qw( fileparse basename ); my $special_chars_re_class = "[".( join "", map quotemeta, @special_chars )."]"; my ( $dir_qfn, $corrupt_fn ) = fileparse( $corrupt_qfn ); my $glob = quotemeta( $dir_qfn ) . '*'; my $re = $corrupt_fn =~ s{ ( [ ] ) \| ( [^\w ] ) }{ defined( $1 ) ? $special_chars_re_class : "\\$2" }xegr; $re = qr/^\Q$dir_qfn\E$re\z/; while ( defined( my $qfn = glob( $glob ) ) ) { next if $qfn !~ $re; say $qfn; }` [download] As written, this assumes the spaces are just in the file name. This could easily be adapted to check for multiple files at once.	[reply] [d/l]
Re^3: How to replace spaces with different chars? by 5mi11er (Deacon) on Jul 11, 2022 at 14:14 UTC
I'm going to parrot Ikegami " this is not practical ". The real answer is to fix or replace the tool that gave you the incorrect output in the first place. -Scott	[reply]
Re^4: How to replace spaces with different chars? by ikegami (Patriarch) on Jul 11, 2022 at 18:59 UTC
Re: How to replace spaces with different chars? by LanX (Saint) on Jul 06, 2022 at 15:33 UTC
here a partial solution using `glob` But I don't know how to escape the `","` appropriately ...� `use v5.12; use warnings; use Data::Dump qw/pp dd/; my $globber = join ",", (":", ";", "=", "-"); for my $line (<DATA>) { chomp $line; say "--- $line"; $line =~ s/\s/{$globber}/g; say pp [ glob($line) ]; } __DATA__ /a/b/c/d/e/fi le /a/b/c/d/e/fi l e /a/b/c/d/e/f i l e /a/b/c/d/e/f i l e` [download] output C:/nonBKU/strawberry-perl-5.32.1.1-64bit-portable/perl/bin\perl.exe -w + c:/tmp/pm/paths_combies.pl --- /a/b/c/d/e/fi le [ "/a/b/c/d/e/fi:le", "/a/b/c/d/e/fi;le", "/a/b/c/d/e/fi=le", "/a/b/c/d/e/fi-le", ] --- /a/b/c/d/e/fi l e [ "/a/b/c/d/e/fi:l:e", "/a/b/c/d/e/fi:l;e", "/a/b/c/d/e/fi:l=e", "/a/b/c/d/e/fi:l-e", "/a/b/c/d/e/fi;l:e", "/a/b/c/d/e/fi;l;e", "/a/b/c/d/e/fi;l=e", "/a/b/c/d/e/fi;l-e", "/a/b/c/d/e/fi=l:e", "/a/b/c/d/e/fi=l;e", "/a/b/c/d/e/fi=l=e", "/a/b/c/d/e/fi=l-e", "/a/b/c/d/e/fi-l:e", "/a/b/c/d/e/fi-l;e", "/a/b/c/d/e/fi-l=e", "/a/b/c/d/e/fi-l-e", ] --- /a/b/c/d/e/f i l e [ "/a/b/c/d/e/f:i:l:e", "/a/b/c/d/e/f:i:l;e", "/a/b/c/d/e/f:i:l=e", "/a/b/c/d/e/f:i:l-e", "/a/b/c/d/e/f:i;l:e", "/a/b/c/d/e/f:i;l;e", "/a/b/c/d/e/f:i;l=e", "/a/b/c/d/e/f:i;l-e", "/a/b/c/d/e/f:i=l:e", "/a/b/c/d/e/f:i=l;e", "/a/b/c/d/e/f:i=l=e", "/a/b/c/d/e/f:i=l-e", "/a/b/c/d/e/f:i-l:e", "/a/b/c/d/e/f:i-l;e", "/a/b/c/d/e/f:i-l=e", "/a/b/c/d/e/f:i-l-e", "/a/b/c/d/e/f;i:l:e", "/a/b/c/d/e/f;i:l;e", "/a/b/c/d/e/f;i:l=e", "/a/b/c/d/e/f;i:l-e", "/a/b/c/d/e/f;i;l:e", "/a/b/c/d/e/f;i;l;e", "/a/b/c/d/e/f;i;l=e", "/a/b/c/d/e/f;i;l-e", "/a/b/c/d/e/f;i=l:e", "/a/b/c/d/e/f;i=l;e", "/a/b/c/d/e/f;i=l=e", "/a/b/c/d/e/f;i=l-e", "/a/b/c/d/e/f;i-l:e", "/a/b/c/d/e/f;i-l;e", "/a/b/c/d/e/f;i-l=e", "/a/b/c/d/e/f;i-l-e", "/a/b/c/d/e/f=i:l:e", "/a/b/c/d/e/f=i:l;e", "/a/b/c/d/e/f=i:l=e", "/a/b/c/d/e/f=i:l-e", "/a/b/c/d/e/f=i;l:e", "/a/b/c/d/e/f=i;l;e", "/a/b/c/d/e/f=i;l=e", "/a/b/c/d/e/f=i;l-e", "/a/b/c/d/e/f=i=l:e", "/a/b/c/d/e/f=i=l;e", "/a/b/c/d/e/f=i=l=e", "/a/b/c/d/e/f=i=l-e", "/a/b/c/d/e/f=i-l:e", "/a/b/c/d/e/f=i-l;e", "/a/b/c/d/e/f=i-l=e", "/a/b/c/d/e/f=i-l-e", "/a/b/c/d/e/f-i:l:e", "/a/b/c/d/e/f-i:l;e", "/a/b/c/d/e/f-i:l=e", "/a/b/c/d/e/f-i:l-e", "/a/b/c/d/e/f-i;l:e", "/a/b/c/d/e/f-i;l;e", "/a/b/c/d/e/f-i;l=e", "/a/b/c/d/e/f-i;l-e", "/a/b/c/d/e/f-i=l:e", "/a/b/c/d/e/f-i=l;e", "/a/b/c/d/e/f-i=l=e", "/a/b/c/d/e/f-i=l-e", "/a/b/c/d/e/f-i-l:e", "/a/b/c/d/e/f-i-l;e", "/a/b/c/d/e/f-i-l=e", "/a/b/c/d/e/f-i-l-e", ] --- /a/b/c/d/e/f i l e [ "/a/b/c/d/e/f:i::l:e", "/a/b/c/d/e/f:i::l;e", "/a/b/c/d/e/f:i::l=e", "/a/b/c/d/e/f:i::l-e", "/a/b/c/d/e/f:i:;l:e", "/a/b/c/d/e/f:i:;l;e", "/a/b/c/d/e/f:i:;l=e", "/a/b/c/d/e/f:i:;l-e", "/a/b/c/d/e/f:i:=l:e", "/a/b/c/d/e/f:i:=l;e", "/a/b/c/d/e/f:i:=l=e", "/a/b/c/d/e/f:i:=l-e", "/a/b/c/d/e/f:i:-l:e", "/a/b/c/d/e/f:i:-l;e", "/a/b/c/d/e/f:i:-l=e", "/a/b/c/d/e/f:i:-l-e", "/a/b/c/d/e/f:i;:l:e", "/a/b/c/d/e/f:i;:l;e", "/a/b/c/d/e/f:i;:l=e", "/a/b/c/d/e/f:i;:l-e", "/a/b/c/d/e/f:i;;l:e", "/a/b/c/d/e/f:i;;l;e", "/a/b/c/d/e/f:i;;l=e", "/a/b/c/d/e/f:i;;l-e", "/a/b/c/d/e/f:i;=l:e", "/a/b/c/d/e/f:i;=l;e", "/a/b/c/d/e/f:i;=l=e", "/a/b/c/d/e/f:i;=l-e", "/a/b/c/d/e/f:i;-l:e", "/a/b/c/d/e/f:i;-l;e", "/a/b/c/d/e/f:i;-l=e", "/a/b/c/d/e/f:i;-l-e", "/a/b/c/d/e/f:i=:l:e", "/a/b/c/d/e/f:i=:l;e", "/a/b/c/d/e/f:i=:l=e", "/a/b/c/d/e/f:i=:l-e", "/a/b/c/d/e/f:i=;l:e", "/a/b/c/d/e/f:i=;l;e", "/a/b/c/d/e/f:i=;l=e", "/a/b/c/d/e/f:i=;l-e", "/a/b/c/d/e/f:i==l:e", "/a/b/c/d/e/f:i==l;e", "/a/b/c/d/e/f:i==l=e", "/a/b/c/d/e/f:i==l-e", "/a/b/c/d/e/f:i=-l:e", "/a/b/c/d/e/f:i=-l;e", "/a/b/c/d/e/f:i=-l=e", "/a/b/c/d/e/f:i=-l-e", "/a/b/c/d/e/f:i-:l:e", "/a/b/c/d/e/f:i-:l;e", "/a/b/c/d/e/f:i-:l=e", "/a/b/c/d/e/f:i-:l-e", "/a/b/c/d/e/f:i-;l:e", "/a/b/c/d/e/f:i-;l;e", "/a/b/c/d/e/f:i-;l=e", "/a/b/c/d/e/f:i-;l-e", "/a/b/c/d/e/f:i-=l:e", "/a/b/c/d/e/f:i-=l;e", "/a/b/c/d/e/f:i-=l=e", "/a/b/c/d/e/f:i-=l-e", "/a/b/c/d/e/f:i--l:e", "/a/b/c/d/e/f:i--l;e", "/a/b/c/d/e/f:i--l=e", "/a/b/c/d/e/f:i--l-e", "/a/b/c/d/e/f;i::l:e", "/a/b/c/d/e/f;i::l;e", "/a/b/c/d/e/f;i::l=e", "/a/b/c/d/e/f;i::l-e", "/a/b/c/d/e/f;i:;l:e", "/a/b/c/d/e/f;i:;l;e", "/a/b/c/d/e/f;i:;l=e", "/a/b/c/d/e/f;i:;l-e", "/a/b/c/d/e/f;i:=l:e", "/a/b/c/d/e/f;i:=l;e", "/a/b/c/d/e/f;i:=l=e", "/a/b/c/d/e/f;i:=l-e", "/a/b/c/d/e/f;i:-l:e", "/a/b/c/d/e/f;i:-l;e", "/a/b/c/d/e/f;i:-l=e", "/a/b/c/d/e/f;i:-l-e", "/a/b/c/d/e/f;i;:l:e", "/a/b/c/d/e/f;i;:l;e", "/a/b/c/d/e/f;i;:l=e", "/a/b/c/d/e/f;i;:l-e", "/a/b/c/d/e/f;i;;l:e", "/a/b/c/d/e/f;i;;l;e", "/a/b/c/d/e/f;i;;l=e", "/a/b/c/d/e/f;i;;l-e", "/a/b/c/d/e/f;i;=l:e", "/a/b/c/d/e/f;i;=l;e", "/a/b/c/d/e/f;i;=l=e", "/a/b/c/d/e/f;i;=l-e", "/a/b/c/d/e/f;i;-l:e", "/a/b/c/d/e/f;i;-l;e", "/a/b/c/d/e/f;i;-l=e", "/a/b/c/d/e/f;i;-l-e", "/a/b/c/d/e/f;i=:l:e", "/a/b/c/d/e/f;i=:l;e", "/a/b/c/d/e/f;i=:l=e", "/a/b/c/d/e/f;i=:l-e", "/a/b/c/d/e/f;i=;l:e", "/a/b/c/d/e/f;i=;l;e", "/a/b/c/d/e/f;i=;l=e", "/a/b/c/d/e/f;i=;l-e", "/a/b/c/d/e/f;i==l:e", "/a/b/c/d/e/f;i==l;e", "/a/b/c/d/e/f;i==l=e", "/a/b/c/d/e/f;i==l-e", "/a/b/c/d/e/f;i=-l:e", "/a/b/c/d/e/f;i=-l;e", "/a/b/c/d/e/f;i=-l=e", "/a/b/c/d/e/f;i=-l-e", "/a/b/c/d/e/f;i-:l:e", "/a/b/c/d/e/f;i-:l;e", "/a/b/c/d/e/f;i-:l=e", "/a/b/c/d/e/f;i-:l-e", "/a/b/c/d/e/f;i-;l:e", "/a/b/c/d/e/f;i-;l;e", "/a/b/c/d/e/f;i-;l=e", "/a/b/c/d/e/f;i-;l-e", "/a/b/c/d/e/f;i-=l:e", "/a/b/c/d/e/f;i-=l;e", "/a/b/c/d/e/f;i-=l=e", "/a/b/c/d/e/f;i-=l-e", "/a/b/c/d/e/f;i--l:e", "/a/b/c/d/e/f;i--l;e", "/a/b/c/d/e/f;i--l=e", "/a/b/c/d/e/f;i--l-e", "/a/b/c/d/e/f=i::l:e", "/a/b/c/d/e/f=i::l;e", "/a/b/c/d/e/f=i::l=e", "/a/b/c/d/e/f=i::l-e", "/a/b/c/d/e/f=i:;l:e", "/a/b/c/d/e/f=i:;l;e", "/a/b/c/d/e/f=i:;l=e", "/a/b/c/d/e/f=i:;l-e", "/a/b/c/d/e/f=i:=l:e", "/a/b/c/d/e/f=i:=l;e", "/a/b/c/d/e/f=i:=l=e", "/a/b/c/d/e/f=i:=l-e", "/a/b/c/d/e/f=i:-l:e", "/a/b/c/d/e/f=i:-l;e", "/a/b/c/d/e/f=i:-l=e", "/a/b/c/d/e/f=i:-l-e", "/a/b/c/d/e/f=i;:l:e", "/a/b/c/d/e/f=i;:l;e", "/a/b/c/d/e/f=i;:l=e", "/a/b/c/d/e/f=i;:l-e", "/a/b/c/d/e/f=i;;l:e", "/a/b/c/d/e/f=i;;l;e", "/a/b/c/d/e/f=i;;l=e", "/a/b/c/d/e/f=i;;l-e", "/a/b/c/d/e/f=i;=l:e", "/a/b/c/d/e/f=i;=l;e", "/a/b/c/d/e/f=i;=l=e", "/a/b/c/d/e/f=i;=l-e", "/a/b/c/d/e/f=i;-l:e", "/a/b/c/d/e/f=i;-l;e", "/a/b/c/d/e/f=i;-l=e", "/a/b/c/d/e/f=i;-l-e", "/a/b/c/d/e/f=i=:l:e", "/a/b/c/d/e/f=i=:l;e", "/a/b/c/d/e/f=i=:l=e", "/a/b/c/d/e/f=i=:l-e", "/a/b/c/d/e/f=i=;l:e", "/a/b/c/d/e/f=i=;l;e", "/a/b/c/d/e/f=i=;l=e", "/a/b/c/d/e/f=i=;l-e", "/a/b/c/d/e/f=i==l:e", "/a/b/c/d/e/f=i==l;e", "/a/b/c/d/e/f=i==l=e", "/a/b/c/d/e/f=i==l-e", "/a/b/c/d/e/f=i=-l:e", "/a/b/c/d/e/f=i=-l;e", "/a/b/c/d/e/f=i=-l=e", "/a/b/c/d/e/f=i=-l-e", "/a/b/c/d/e/f=i-:l:e", "/a/b/c/d/e/f=i-:l;e", "/a/b/c/d/e/f=i-:l=e", "/a/b/c/d/e/f=i-:l-e", "/a/b/c/d/e/f=i-;l:e", "/a/b/c/d/e/f=i-;l;e", "/a/b/c/d/e/f=i-;l=e", "/a/b/c/d/e/f=i-;l-e", "/a/b/c/d/e/f=i-=l:e", "/a/b/c/d/e/f=i-=l;e", "/a/b/c/d/e/f=i-=l=e", "/a/b/c/d/e/f=i-=l-e", "/a/b/c/d/e/f=i--l:e", "/a/b/c/d/e/f=i--l;e", "/a/b/c/d/e/f=i--l=e", "/a/b/c/d/e/f=i--l-e", "/a/b/c/d/e/f-i::l:e", "/a/b/c/d/e/f-i::l;e", "/a/b/c/d/e/f-i::l=e", "/a/b/c/d/e/f-i::l-e", "/a/b/c/d/e/f-i:;l:e", "/a/b/c/d/e/f-i:;l;e", "/a/b/c/d/e/f-i:;l=e", "/a/b/c/d/e/f-i:;l-e", "/a/b/c/d/e/f-i:=l:e", "/a/b/c/d/e/f-i:=l;e", "/a/b/c/d/e/f-i:=l=e", "/a/b/c/d/e/f-i:=l-e", "/a/b/c/d/e/f-i:-l:e", "/a/b/c/d/e/f-i:-l;e", "/a/b/c/d/e/f-i:-l=e", "/a/b/c/d/e/f-i:-l-e", "/a/b/c/d/e/f-i;:l:e", "/a/b/c/d/e/f-i;:l;e", "/a/b/c/d/e/f-i;:l=e", "/a/b/c/d/e/f-i;:l-e", "/a/b/c/d/e/f-i;;l:e", "/a/b/c/d/e/f-i;;l;e", "/a/b/c/d/e/f-i;;l=e", "/a/b/c/d/e/f-i;;l-e", "/a/b/c/d/e/f-i;=l:e", "/a/b/c/d/e/f-i;=l;e", "/a/b/c/d/e/f-i;=l=e", "/a/b/c/d/e/f-i;=l-e", "/a/b/c/d/e/f-i;-l:e", "/a/b/c/d/e/f-i;-l;e", "/a/b/c/d/e/f-i;-l=e", "/a/b/c/d/e/f-i;-l-e", "/a/b/c/d/e/f-i=:l:e", "/a/b/c/d/e/f-i=:l;e", "/a/b/c/d/e/f-i=:l=e", "/a/b/c/d/e/f-i=:l-e", "/a/b/c/d/e/f-i=;l:e", "/a/b/c/d/e/f-i=;l;e", "/a/b/c/d/e/f-i=;l=e", "/a/b/c/d/e/f-i=;l-e", "/a/b/c/d/e/f-i==l:e", "/a/b/c/d/e/f-i==l;e", "/a/b/c/d/e/f-i==l=e", "/a/b/c/d/e/f-i==l-e", "/a/b/c/d/e/f-i=-l:e", "/a/b/c/d/e/f-i=-l;e", "/a/b/c/d/e/f-i=-l=e", "/a/b/c/d/e/f-i=-l-e", "/a/b/c/d/e/f-i-:l:e", "/a/b/c/d/e/f-i-:l;e", "/a/b/c/d/e/f-i-:l=e", "/a/b/c/d/e/f-i-:l-e", "/a/b/c/d/e/f-i-;l:e", "/a/b/c/d/e/f-i-;l;e", "/a/b/c/d/e/f-i-;l=e", "/a/b/c/d/e/f-i-;l-e", "/a/b/c/d/e/f-i-=l:e", "/a/b/c/d/e/f-i-=l;e", "/a/b/c/d/e/f-i-=l=e", "/a/b/c/d/e/f-i-=l-e", "/a/b/c/d/e/f-i--l:e", "/a/b/c/d/e/f-i--l;e", "/a/b/c/d/e/f-i--l=e", "/a/b/c/d/e/f-i--l-e", ] Compilation finished at Wed Jul 6 17:30:10 [download] �) one workaround may be to use a placeholder like "\0" which can't naturally appear and to replace it afterwards. update the whole concept is dubious, because this will create far too many combinations. (Besides solving the original issue) it's better to check incrementally from left to right with wildcards, before progressing to the next position. `my @part = </a/b/c/d/e/f{;,:,=,-}i*>;` etc Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]
Re: How to replace spaces with different chars? by kcott (Archbishop) on Jul 07, 2022 at 08:13 UTC
G'day ovedpo15, "How can I use the system instead?" With these paths: `ken@titan ~/tmp/pm_11145308_test_dir $ ls -1 a/b/c/d/e 'f:i-:l;e' 'fi:l;e' 'f-i:l;e' 'f-i-:l;e' fi:le` [download] And this code (`find_file_match.pl`): `#!/usr/bin/env perl use strict; use warnings; my @data = ( 'a/b/c/d/e/fi le', 'a/b/c/d/e/fi l e', 'a/b/c/d/e/f i l e', 'a/b/c/d/e/f i l e', ); for my $datum (@data) { print "\n* Files matching '$datum':\n"; # $datum =~ y/ /?/; -- see update below $datum =~ s/ /[\\;:,-]/g; system("ls -1 $datum"); }` [download] You get this output: `ken@titan ~/tmp/pm_11145308_test_dir $ ./find_file_match.pl * Files matching 'a/b/c/d/e/fi le': a/b/c/d/e/fi:le * Files matching 'a/b/c/d/e/fi l e': 'a/b/c/d/e/fi:l;e' * Files matching 'a/b/c/d/e/f i l e': 'a/b/c/d/e/f-i:l;e' * Files matching 'a/b/c/d/e/f i l e': 'a/b/c/d/e/f:i-:l;e' 'a/b/c/d/e/f-i-:l;e'` [download] Update:** See ++LanX' valid comment regarding the inherent bug in the code I posted above. Changing `y/ /?/` to `s/ /[\\;:,-]/g` fixes this. — Ken	[reply] [d/l] [select]
Re^2: How to replace spaces with different chars? by LanX (Saint) on Jul 07, 2022 at 10:45 UTC
I had the same idea, it's far more efficient! But you still need a second step where you only `grep` those files `m`atching `[;:,-]` at the missing spots, otherwise you will have false positives like `fidlee` Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]
Re^3: How to replace spaces with different chars? by kcott (Archbishop) on Jul 07, 2022 at 13:12 UTC
++ Well spotted. If I add `fidlee`: `$ ls -1 a/b/c/d/e 'f:i-:l;e' 'fi:l;e' 'f-i:l;e' 'f-i-:l;e' fi:le fidlee` [download] I get an additional line in the output: `*** Files matching 'a/b/c/d/e/fi l e': 'a/b/c/d/e/fi:l;e' a/b/c/d/e/fidlee` [download] Changing `y/ /?/` to `s/ /[\\;:,-]/g` fixes this. I've updated my post. — Ken	[reply] [d/l] [select]
Re^4: How to replace spaces with different chars? by LanX (Saint) on Jul 07, 2022 at 13:44 UTC
Re^5: How to replace spaces with different chars? by hippo (Bishop) on Jul 07, 2022 at 13:48 UTC
Some notes below your chosen depth have not been shown here
Re^5: How to replace spaces with different chars? by kcott (Archbishop) on Jul 07, 2022 at 14:19 UTC
Re: How to replace spaces with different chars? by AnomalousMonk (Archbishop) on Jul 07, 2022 at 02:33 UTC
Given that list of paths and the array of special chars, I want to report all existing possible paths. Kind of brute-force .... ... replace each space with one of the chars ... Here's a brute-force approach to doing what you want, but I'm not sure it will necessarily help you solve your problem. (And permutations are applied to all whitespace, not just blanks.) Read more... (14 kB) Output: `Win8 Strawberry 5.8.9.5 (32) Wed 07/06/2022 21:46:31 C:\@Work\Perl\monks\ovedpo15 >perl Odo.t ok 1 - use Odo; 1..8 ok 2 - "/a/b/c/d/e/fi le" ok 3 - " /a/b/c/d/e/file" ok 4 - "/a/b/c/d/e/file " ok 5 - "/a/b/c/d/e/fi l e" ok 6 - "/a/b/c/d/e/fi \tle " ok 7 - "\t/a/b/c/d/e/fi\nle\f" ok 8 - no warnings` [download] Update: The technique of defining iterators is described in detail in Dominus's excellent Higher Order Perl; see free HOP download. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re: How to replace spaces with different chars? by kcott (Archbishop) on Jul 07, 2022 at 14:05 UTC
In my initial response I answered your question about using system; however, it occurs to me that you probably want to capture that output and do something with it. So, if you replace `system("ls -1 $datum");` [download] with my @matches = `ls -1 $datum`; [download] you'll now have an array of matches that you can process further. If that processing was `print for @matches;` [download] you'll get identical output to what I originally posted. — Ken	[reply] [d/l] [select]
Re^2: How to replace spaces with different chars? by LanX (Saint) on Jul 07, 2022 at 14:15 UTC
why not use `my @matches = glob($datum)` or `my @matches = <$datum>` directly? Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]
Re^3: How to replace spaces with different chars? by kcott (Archbishop) on Jul 07, 2022 at 14:46 UTC
This was a follow-up to my previous post about system, which has: "This is not what you want to use to capture the output from a command; for that you should use merely backticks or qx//, ..." Of course, TMTOWTDI. :-) — Ken	[reply]
Re^4: How to replace spaces with different chars? by LanX (Saint) on Jul 07, 2022 at 16:49 UTC
Re^5: How to replace spaces with different chars? by kcott (Archbishop) on Jul 08, 2022 at 17:42 UTC
Some notes below your chosen depth have not been shown here


go ahead... be a heretic
	PerlMonks

How to replace spaces with different chars?

output

update