bash case like listing for perl

casperdaghost · 10-08-2013, 11:54 PM

I have this script - what it does is list all the tmux sessions present on a host. The it presents them in a way that i cah cut and paste the command on to the command line.

Code:

#!/usr/bin/perl -w
open FILE, "/usr/bin/tmux list-sessions|";
while (<FILE>) {
$line = $_;
   if ($line =~ /(\w+):*?/) {
      print "tmux attach-session -t $1\n";
   }script
}

What i need is - i need the tmux sessions listed in a numbered fashion as an output to the script - something that will say 'press 1 for this session' , press 2 for that session' , 'press 3 for the third session'

sort of like the case statement in bash - except dynamic - interactive.
can anybody point me to soemthing - a tutorial. I dont even know where to start.
can anyone point me to an example.

evo2 · 10-09-2013, 12:43 AM

Hi,

I'm also a tmux user and I thought that such a script would be very useful, so I went ahead and wrote one in bash. Here it is:

Code:

#!/bin/bash
IFS=$'\n'
declare -a a=($(tmux list-sessions))
[ ${#a[@]} -lt 1 ] && exit 0
for (( i=0 ; i< ${#a[@]}; i++ )) ; do
    echo "Press $i for ${a[$i]}"
done
read j
exec tmux attach-session -t ${a[$j]%%:*}

Things to note:
- line 2: Set IFS to newline so that each entry in the array is a full line not a word.
- line 3: Fill the array a, with the session information
- line 4: Exit if there are no tmux sessions
- last line: Strip everything after the first ":" so that just the session name is passed to "tmux attach-session -t"

HTH,

Evo2.