Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^5: Building a UNIX path from Irritating data

by kyle (Abbot)
on Nov 30, 2009 at 13:24 UTC ( [id://810152]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    open(FFINFO,"$folderfolder_file") or die "Can't open $folderfolder_fil
    +e: $!\n";
    # This reads in every line from FFINFO
    ...
    # but the handle is already at EOF,
    # so it gets nothing.
    while ( my $line = <FFINFO> ) {
    
  2. or download this
    open(FFINFO,"$folderfolder_file") or die "Can't open $folderfolder_fil
    +e: $!\n";
    
    ...
    
    while ( my $line = <FFINFO> ) {
        push @subfolders, $line;
    
  3. or download this
        return @parents ? [ map {
                                    map { "$_/$folderid" } @{ build_path( 
    +$_ ) }
                                } @parents ]
                        : [ $folderid ];
    
  4. or download this
    ( return @parents ) ? [ X ] : [ Y ];
    
  5. or download this
    return ( @parents ? [ X ] : [ Y ] );
    
  6. or download this
    perl -MO=Deparse,-p input-file.pl
    
  7. or download this
    return((@parents ? [map({map({"$_/$folderid";} @{build_path($_);});} @
    +parents)] : [$folderid]));
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://810152]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2024-03-19 02:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found