Unless otherwise noted, all code authored by "xphase_work" on perlmonks.org is free software which you can redistribute and/or modify under the same terms as Perl itself.

Everyone has different info on their home nodes, so I'm going to devote mine to music and nasty legacy code.

Here is a list of CD's that are with me at work right now:

Current Music List:

• The Apples in Stereo -- Tone Soul Evolution
• VA -- Gatecrasher: Global Sound System
• Tori Amos -- Professional Widow(single)
• Future Sound of London -- Lifeforms
• Morrissey -- Vauxhall and I
• VA -- Humate's Progression
• Pet Shop Boys -- Nightlife
• VA -- Trance Nation 2
• VA -- Logical Progression

I work at a large DoD contractor, writing perl s‎crip‎ts that modify Ada95 code. Modifying comments, processing SLOC counts, and working with the world's worst IDE: Rational Apex.

Rational Apex is an Ada IDE with a compiler, editor, and CMVC system. It is a horrible program, but I deal with it. I also maintain legacy perl and shell s‎crip‎ts.

Worst Legacy Code of the Week:

From a csh s‎crip‎t:

<snipped.. due to legal and space issues>
grep $ss ~$userid/this_path/has/been/changed >&! /dev/null
if ($status == 0) then
    goto next_part
endif

next_part:
[download]

<snipped.. due to legal and space issues>
else
    goto finish
endif 
finish:                              
    endif
    end
endif
[download]

Goodie, this is a gem from a perl s‎crip‎t. It's purpost is to prepare a command to run with system, enjoy:

1.@update_things_cmd = qw(
2.                        /prog/dir/arch/bin/accept_changes
3.                        -expand_configurations
4.                        -identical
5.                        -source);
6.$update_things_cmd = join($",@update_views_cmd);
[download]

Woo, another example from this s‎crip‎t:

##########################################
# CHANGE SWITCHES FOR INTEGRATION THINGS
##########################################
###&fix_switches(@int_things);
}
##########################################
# BUILD INTEGRATION THINGS
##########################################
[download]

--xPhase