On Mon, 12 Apr 2010, Sabahattin Gucukoglu wrote:
> On 12 Apr 2010, at 01:29, Davide Libenzi wrote:
> On Thu, 8 Apr 2010, Sabahattin Gucukoglu wrote:
> >> #!/usr/bin/tclsh
> >> set user "sgucukoglu"
> >>
> >> set first [string first "-" [lindex $argv 1]]
> >> if {$first!=-1} {
> >> incr first
> >> set last [string last "@" [lindex $argv 1]]
> >> if {$last==-1} {
> >> set env(EXT) [string range [lindex $argv 1] $first end]
> >> } else {
> >> incr last -1
> >> set env(EXT) [string range [lindex $argv 1] $first $last]
> >> }
> >> } else {
> >> set env(EXT) ""
> >> }
> >>
> >> set env(HOME) "/home/$user"
> >> set env(SENDER) [lindex $argv 0]
> >> set env(RECIPIENT) [lindex $argv 1]
> >
> > Oh, TCL! Is likely 10+ years I haven't seen a line of it ;)
>
> Now you're just trolling. Stop it! :-)
>
> I know a lot of people don't have Tcl installed which is annoying, but I
> just can't stomach perl. It's too full of warts. Tcl just gets a load
> of stuff done really quickly without question.
In the company I used to work time ago, I used TCL as scripting language
for our CAD. Very easy to integrate into C/C++ software.
I personally like Perl, for the few scripting things I happend to write.
- Davide
_______________________________________________
xmail mailing list
[email protected]
http://xmailserver.org/mailman/listinfo/xmail
