Re: write to the file whose basename is argv[0]

On 12-03-03 11:37 AM, lina wrote:
> my $tex_filename = $ARGV[0] ;

# for catfile()
use File::Spec;

# divide the input file name into its path and name,
# ignore its extension
my ( $name, $path ) = fileparse( $tex_filename, qr/\.[^\.]+$/ );

# create a new name with .bib extension
my $output_text_filename = File::Spec->catfile( $path, "$name.bib" );

# open the file
open my $bib_output, '>', $output_text_filename
     or die "could not open $output_text_filename: $!\n";

# etc...


-- 
Just my 0.00000002 million dollars worth,
   Shawn

Programming is as much about organization and communication
as it is about coding.

It's Mutual Aid, not fierce competition, that's the dominate
force of evolution.  Of course, anyone who has worked in
open source already knows this.

• write to the file whose basename is argv[0] by lina
• Re: write to the file whose basename is argv[0] by Shawn H Corey
• Re: write to the file whose basename is argv[0] by lina
• Re: write to the file whose basename is argv[0] by Shawn H Corey
• Re: write to the file whose basename is argv[0] by Rob Dixon
• Re: write to the file whose basename is argv[0] by Shlomi Fish
• Re: write to the file whose basename is argv[0] by lina