start printing at the end of the previous line

weberw@adelphia.net · *nix forums beginner Joined: 09 Jul 2006 Posts: 22

Does anyone know who to tab to then end of the previous line in Perl?
apple, banana and orange would start on the next line where the "s" in
fruits ends.

Example, Output to the screen would look like this..

fruits
apple
banana
orange

Jürgen Exner · *nix forums Guru Joined: 09 Apr 2005 Posts: 514

weberw@adelphia.net wrote:

David Squire · *nix forums Guru Wannabe Joined: 08 Apr 2006 Posts: 197

weberw@adelphia.net wrote:

weberw@adelphia.net · *nix forums beginner Joined: 09 Jul 2006 Posts: 22

Thanks David, It still prints everything on one line. Can you take
a look at my code...

#!C://Perl/bin/perl
use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';
use strict;
use warnings;
use File::Find;
my $file_count = 0;
my $dir_count = 0;
my $title;
my $directorylen;

$title = "Find Files";
print header,
start_html($title),
h1($title);

find ( {
wanted => \&wanted}, 'C:/Documents and
Settings/whatever/Desktop/test');

printf "\nThere are %d files in %d directories.\n",
$file_count,
$dir_count;

sub wanted {

if(-d){
return if $File::Find::name =~ /test3/;

#get the length of the directory
#so the files contained in the folder
#can start printing at the end
#of the directory name

$directorylen = length($_);
print "$_\n\n";

$dir_count++;
}
elsif (-f _) {
return if $File::Find::name =~ /test3/;
print ' ' x ($directorylen-1), $_;
print ("\n\n\n")
$file_count++;

}
}

print end_hmtl;

Glenn Jackman · *nix forums addict Joined: 19 Apr 2005 Posts: 97

At 2006-07-18 12:50PM, weberw@adelphia.net <weberw@adelphia.net> wrote:

weberw@adelphia.net · *nix forums beginner Joined: 09 Jul 2006 Posts: 22

Hi Glen-you have been really helpful! How do you incorporate the print
' ' x line with a hyperlink? It works fine when it is not a hyperlink
for example

print "<pre>";
print ' ' x ($directorylen-5), $_;
print "</pre>";

but print ' ' x ($directorylen), <a
href=\"$File::Find::name\">$_</a>\n"; has a syntax error. How would I
incorporate my hyplerlink tags into the print ' ' x line?

Also, not clear what you meant by [....].

Tad McClellan · *nix forums Guru Joined: 09 Mar 2005 Posts: 1647

weberw@adelphia.net <weberw@adelphia.net> wrote:

John Bokma · *nix forums Guru Joined: 23 Feb 2005 Posts: 1136

Tad McClellan <tadmc@augustmail.com> wrote:

Google