[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
- <!--x-content-type: text/plain -->
- <!--x-date: Tue Nov 23 18:12:04 2004 -->
- <!--x-from-r13: syrgpu ng culqrnhk.bet (Tyrgpu) -->
- <!--x-message-id: [email protected] -->
- <!--x-reference: 04Nov23.155514-0500_est.359619-[email protected] --> "http://www.w3.org/TR/html4/loose.dtd">
- <!--x-subject: [ale] Quick Perl Q -->
- <li><em>date</em>: Tue Nov 23 18:12:04 2004</li>
- <li><em>from</em>: fletch at phydeaux.org (Fletch)</li>
- <li><em>in-reply-to</em>: <<a href="msg00977.html">[email protected]</a>> (Jonathan Rickman's message of "Tue, 23 Nov 2004 15:55:05 -0500")</li>
- <li><em>references</em>: <<a href="msg00977.html">[email protected]</a>></li>
- <li><em>subject</em>: [ale] Quick Perl Q</li>
lemur:/tmp/foo 724> l
total 0
-rw-r--r-- 1 fletch wheel 0 23 Nov 17:53 abc.EMB
-rw-r--r-- 1 fletch wheel 0 15 Nov 12:34 def.EMB
lemur:/tmp/foo 725> perl -MPOSIX=strftime -le 'for(<*.EMB>){m{(.*?)\.EMB$};unless($m=(stat$_)[9]){warn"cannot stat $_: $!\n";next}link($_,strftime("$1-%Y%m%dT%H%M%S.EMB",localtime$m))||warn"cannot link $_: $!\n"}'
lemur:/tmp/foo 726> l
total 0
-rw-r--r-- 2 fletch wheel 0 23 Nov 17:53 abc-20041123T175315.EMB
-rw-r--r-- 2 fletch wheel 0 23 Nov 17:53 abc.EMB
-rw-r--r-- 2 fletch wheel 0 15 Nov 12:34 def-20041115T123400.EMB
-rw-r--r-- 2 fletch wheel 0 15 Nov 12:34 def.EMB
--
Fletch | "If you find my answers frightening, __`'/|
fletch at phydeaux.org | Vincent, you should cease askin' \ o.O'
| scary questions." -- Jules =(___)=
| U
</pre>
<!--X-Body-of-Message-End-->
<!--X-MsgBody-End-->
<!--X-Follow-Ups-->
<hr>
<ul><li><strong>Follow-Ups</strong>:
<ul>
<li><strong><a name="00986" href="msg00986.html">[ale] Quick Perl Q</a></strong>
<ul><li><em>From:</em> jdr at xcorps.net (Jonathan Rickman)</li></ul></li>
</ul></li></ul>
<!--X-Follow-Ups-End-->
<!--X-References-->
<ul><li><strong>References</strong>:
<ul>
<li><strong><a name="00977" href="msg00977.html">[ale] Quick Perl Q</a></strong>
<ul><li><em>From:</em> jdr at xcorps.net (Jonathan Rickman)</li></ul></li>
</ul></li></ul>
<!--X-References-End-->
<!--X-BotPNI-->
<ul>
<li>Prev by Date:
<strong><a href="msg00982.html">[ale] file size limit?</a></strong>
</li>
<li>Next by Date:
<strong><a href="msg00984.html">[ale] [Fwd: RE: DVD burner for archival image copies]</a></strong>
</li>
<li>Previous by thread:
<strong><a href="msg00981.html">[ale] Quick Perl Q</a></strong>
</li>
<li>Next by thread:
<strong><a href="msg00986.html">[ale] Quick Perl Q</a></strong>
</li>
<li>Index(es):
<ul>
<li><a href="maillist.html#00983"><strong>Date</strong></a></li>
<li><a href="threads.html#00983"><strong>Thread</strong></a></li>
</ul>
</li>
</ul>
<!--X-BotPNI-End-->
<!--X-User-Footer-->
<!--X-User-Footer-End-->
</body>
</html>