File: getTempDir.pl

package info (click to toggle)
lyx 2.5.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 138,444 kB
  • sloc: cpp: 244,268; ansic: 106,398; xml: 72,791; python: 39,384; sh: 7,666; makefile: 6,584; pascal: 2,143; perl: 2,101; objc: 1,084; tcl: 163; sed: 16
file content (13 lines) | stat: -rwxr-xr-x 192 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#! /usr/bin/env perl
# -*- mode: perl; -*-

# How to use:

use File::Temp tempdir;

my $template = "$ARGV[0]/AbC_XXXXXX";
my $res  = tempdir($template, CLEANUP => 0);

print "$res";

exit(0);