spungo said:
gerry rzeppa said:
spungo said:
. Or at least address the test cases I posted above. If you don't like them then choose one of your own of a similar level of complexity (very low, as I've pointed out).
Yes, yes you keep saying that. We're programmers, so show us some working code
I can provide a control code example for this. True story: I learned Perl because I wanted to have automatic date stamps on PDFs of CAD drawings made from a script. It can probably done with a .bat or .vbs file, but you'll find life on mars before you find any documentation explaining how to use either of those. Making it work involved regular expressions and substring replacement in a config file.
#!perl
use warnings;
use strict;
use File::Copy;
# Functions are defined at the bottom of this script.
# configurable variables go here:
my $new_folder = 'C:\new_folder';
# end of configurable variables
# get the date stamp like "2014-11-26-1315h"
my $date_stamp = get_date_stamp();
# glob only works if this script is in the same folder as the original jpeg images
my @old_files = glob '*.jpg';
# copy the files and include the date stamp in the new file name.
# we're using keys because the key is used to get the file's number.
# we're trying to build names like "2014-11-26-1315h 5.jpg".
# can't remember how to force it use 3 digits for a number so it would be 005. fix later.
foreach my $key (keys @old_files) {
copy($old_files[$key], "$new_folder\\$date_stamp $key.jpg")
or die "could not copy $old_files[$key]";
}
######################################
# Functions:
#
#
###############################################################
# Function "get_date_stamp" returns the date stamp
# function localtime() converts the time() into a 9 segment array:
# 0 1 2 3 4 5 6 7 8
# ($sec,$min,$hour,$day,$mon,$year19,$wday,$yday,$isdst) = $localtime(time);
# $month number starts at 0 instead of 1, so add 1 before using it
# $year19 counts from 1900, so add 1900 before using it
sub get_date_stamp {
my ($_sec,$_min,$_hour,$_day,$_mon,$_year19,$_wday,$_yday,$_isdst) = localtime(time); #assign all of the variables
++$_mon; #make the month 1 larger because it starts from 0
#use 4 digit year, 2 digit month, 2 digit day, 2 digit hour, 2 digit minutes
my $_date_stamp = sprintf ("%04d-%02d-%02d-%02d%02dh", $_year19+1900, $_mon, $_day, $_hour, $_min); #displays like "2014-07-14-1315h"
return $_date_stamp;
} #/sub get_date_stamp
###############################################################@echo off
::windows date format is "Day mm/dd/yyyy"
::this is broken into tokens %%a %%b/%%c/%%d
::year month day would be %%d-%%b-%%c
for /f "tokens=1-4 delims=^/ " %%a in ("%date%") do (
set sammy_date=%%d-%%b-%%c
)
::echo date is %sammy_date%
::windows time format is "hh:mm:ss.ss"
::this is broken into tokens %%a:%%b:%%c
for /f "tokens=1-3 delims=: " %%a in ("%time%") do (
set sammy_time=%%a%%bh
)
::echo unmodified time is %time%
::echo time is %sammy_time%
::echo combined date and time is %sammy_date%-%sammy_time%
::7zip's exe should be found at:
set zip_path=C:\Program Files\7-Zip\7z.exe
::create 7z of all .dwg files with a date stamp
"%zip_path%" a -r "%sammy_date%-%sammy_time% DWG Backup.7z" .\*.dwg
::pauseThe compiler has an easter egg to detect douchiness. If you use the words "ascertain" or "therefore" too many times, it compiles something that formats your hard drive
Oh my. So many memories. Remember when everyone was using AIM and MSN? My friend and I both installed Dragon Naturally Speaking and tried to talk the way we normally talk. The thing never assumes you're swearing or using racial slurs, so it fills in things that might sound similar. Part of the fun was not reading the documentation. I would get a message from my friend that starts ok, then it goes off track when something weird is said, then you can read my friend swearing at the computer for typing the wrong things
Markbnj said:
Facebook
Twitter