Как определить ширину строки?

[WG]

Как средствами perl определить ширину строки или ширину отдельно взятого символа строки, например $str="Ш";

[NeoNox]

WG ты можеш определить количество элементов в строке но размеры шрифта ты определить не сможеш.

[Wyclef]

WG
Если уж заинтересовал perl, то можно встречный вопрос:
А как и где (я имею ввиду - не "средствами perl") ты определял "ширину символа"?..

[WG]

Например в Delphi существует функция которая
возвращает ширину в пикселях, строки представленной в текущем шрифте.
function TextWidth(const Text: string): Integer;

Вот пример:

unit Unit1;
//----------//
var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=inttostr(Canvas.TextWidth(Edit1.Text));
end;
end.

[glebushka]

посмотри Term::ReadKey, размер символа ты не определишь, а вот ширину и высоту окна в символах и пикселях, обещают рассказать.

[Меняздесьдавнонет]

если это для ГД, то для ТТФ шрифтов есть функция.
а если для экрана, то нужно делать так, чтобы ширина символа не требовалась.