(gelöst) Dateien zählen

[guennid]

Code: Alles auswählen

test=find /usr/share/applications -maxdepth 1 -type f | wc -l

Wie kriege ich das Ergebnis in eine Variable?

Grüße, Günther

[cronoik]

Code: Alles auswählen

test=$(find /usr/share/applications -maxdepth 1 -type f | wc -l)

[MartinV]

Code: Alles auswählen

zahl=$(find /usr/share/applications -maxdepth 1 -type f | wc -l)

Oder:

Code: Alles auswählen

zahl="$(find /usr/share/applications -maxdepth 1 -type f | wc -l)"

Besser "zahl" als "test", weil test auch ein Befehl ist.

[guennid]

Entschuldigt bitte die blödsinnige Schreibweise in meinem Code-Schnipsel. Das war nicht der Ausdruck, den ich in die Variable stecken wollte, sondern der 1. (untaugliche) Versuch Selbiges zu tun. Martins Hinweis, die Verwendung von "test" betreffend, ist registriert.

[guennid]

Doch noch nicht gelöst:

Wie kriege ich den Wert der Linux-Variablen, hier "zahl" in eine Pascal-Variable oder funktioniert das nur über die Anlage einer Datei?

Grüße, Günther

[MSfree]

Wie kriege ich den Wert der Linux-Variablen, hier "zahl" in eine Pascal-Variable

Oha, meine Pascalzeiten sind schon eine Ewigkeit her

Direkt bekommt man solche Werte auf zwei Arten in ein Programm. Entweder über Kommandozeilenparameter, die relevante Funktion dürfte ParamStr sein. Oder in Form einer Umgebungsvariable mit GetEnv.

Der Wert ist allerdings immer ein String und kein Integer, muß also noch umgewandelt werden.

[guennid]

Das kriege ich in Bezug auf mein Shell-Kommando nicht gebacken. Ich werds wohl über eine Datei machen.

Grüße, Günther

[MSfree]

Das kriege ich in Bezug auf mein Shell-Kommando nicht gebacken.

Das ist doch eigentlich ganz einfach:

Eine Umgebungsvariable hast du doch sowieso schon:

Code: Alles auswählen

test=`find /usr/share/applications -maxdepth 1 -type f | wc -l`

"test" ist hier deine Umgebungsvariable. Um diese für andere Programme sichtbar zu machen, mußt du sie nur exportieren:

Code: Alles auswählen

export test

Und dann rufst du dein Pascalprogram auf, zusammen also so

Code: Alles auswählen

#!/bin/bash
test=`find /usr/share/applications -maxdepth 1 -type f | wc -l`
export test
MeinPascalProgram

Dein Pascalprogramm könnte dann so aussehen:

Code: Alles auswählen

Program MeinPascalProgram;
uses Dos;

begin
var
  str : string;
  numFiles: integer;
 
  str := GetEnv('test'));
  numFiles = StrToInt(str);
  WriteLn('test ist ',str);
  WriteLn('numFiles ist ',numFiles);
end.

[Phineas]

Ich werde wohl nie verstehen, warum man sich hier, wie in vielen ähnlichen Fällen, mit einer 99%-Lösung zufrieden gibt. Dass es wohl kaum Jemanden gibt, der seine Dateinamen mit Newlines versieht, ist kein wirkliches Argument: Das Ding ist nun mal erlaubt - und nur das zählt (so wie wc -l Newlines zählt - und eben keine Dateien).

[tobo]

Ja, innerhalb von find ist alles geregelt und sicher, auch über -exec. Aber sobald man aus find rauspiped und die Daten einem anderen Programm übergibt, muss man aufpassen (z.B. wegen newlines). Wenn nur die Anzahl interessiert:

Code: Alles auswählen

find /usr/share/applications -maxdepth 1 -type f -printf "\n" | wc -l

[guennid]

Hallo MSfree

Funktioniert.

Freepascal will allerdings die Funktion fpGetEnv (Unit baseUnix) statt GetEnv haben.

Ohne den Umweg über's shell-script wär's mir lieber gewesen, habe ich aber nicht hingekriegt.

Danke sehr!

[MSfree]

Ohne den Umweg über's shell-script wär's mir lieber gewesen, habe ich aber nicht hingekriegt.

Eine Dateiliste kannst du dir auch mit Pascal erstellen. Ich habe das hier gefunden:
http://wiki.freepascal.org/FindAllFiles

Oder auch mit FindFirst, FindNext, wenn du es selbst zusammenklöppeln möchtest. Eigentlich ist das alles kein Hexenwerk.

[tobo]

Ohne den Umweg über's shell-script wär's mir lieber gewesen, habe ich aber nicht hingekriegt.

Sowas?

Code: Alles auswählen

program RunShellCommand;

uses Process;

var s: AnsiString;

begin
  if RunCommand('/bin/sh', ['-c', 'find /usr/share/applications -maxdepth 1 -type f -printf "\n" | wc -l'], s) then
    WriteLn(s);
end.

[guennid]

Von Objektorientierung habe ich keine Ahnung und ich will die auch nicht mehr kriegen.
Unkommentierte Shell-Syntax ist mir ein Greuel.
Ich bevorzuge Variablen- Funktions- und Prozedurnamen soweit möglich in Deutsch zu formulieren.
Ich mach' hier was für den Hausgebrauch.

Oder auch mit FindFirst, FindNext

Das kenn' ich. Hielt ich aber, ohne es überprüft zu haben, für DOS-Spezialitäten.