Re: Most efficient way to remove some text from a string

With some guessing (and fixing what I think is a typo)

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1177327

use strict;
use warnings;

my $prefixlength = length '/Volumes/WD/Not Migrating/Music/';

while(<DATA>)
  {
  substr $_, 0, $prefixlength, '';
  my $indent = tr#/##;
  print "  " x $indent, "* $_";
  }

__DATA__
/Volumes/WD/Not Migrating/Music/Ana Tijoux
/Volumes/WD/Not Migrating/Music/Ana Tijoux/Luchin
/Volumes/WD/Not Migrating/Music/Ana Tijoux/Luchin/Luchin.m4a
[download]

Comment on Re: Most efficient way to remove some text from a string Download Code

Replies are listed 'Best First'.
Re^2: Most efficient way to remove some text from a string by adamZ88 (Beadle) on Dec 06, 2016 at 21:23 UTC
Very Very Close. The first part to trim the unwanted path is working correctly. However, everything printed without any indents(tabs) and with an asterisk.	[reply]
Re^3: Most efficient way to remove some text from a string by tybalt89 (Monsignor) on Dec 06, 2016 at 22:29 UTC
Are you printing to a terminal or to a web page?	[reply]
Re^4: Most efficient way to remove some text from a string by adamZ88 (Beadle) on Dec 07, 2016 at 00:57 UTC
Probably very convoluted as I am still new to perl, but I output to terminal and "tee" the output to a file with docx extension. I want to open the file with word.	[reply]
Re^5: Most efficient way to remove some text from a string by Marshall (Canon) on Dec 07, 2016 at 02:36 UTC
Re^5: Most efficient way to remove some text from a string by tybalt89 (Monsignor) on Dec 07, 2016 at 01:34 UTC
Re^6: Most efficient way to remove some text from a string by adamZ88 (Beadle) on Dec 07, 2016 at 20:09 UTC
Some notes below your chosen depth have not been shown here
Re^5: Most efficient way to remove some text from a string by RonW (Parson) on Dec 08, 2016 at 22:56 UTC
Re^6: Most efficient way to remove some text from a string (semantic HTML) by hippo (Archbishop) on Dec 09, 2016 at 09:35 UTC